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APEX VI . 
**** RESIDENT CODE **** 



; SYSTEM CONFIGURATION DEFINITIONS 



.DEF 


SWPSIZ 


= $40 


DISK SWAP SIZE (16K) 


.DEF 


SWPLOC 


=$6000 


MEMORY APEX WILL SWAP 


.DEF 


DIRBLK 


= 9 


DIRECTORY BEGINS HERE 


.DEF 


MAXFL= 


48 


MAX LEGAL NUMBER OF FILES 


.DEF 


COMPAG 


=$B700 


COMMUNICATIONS PAGE 


.DEF 


INPBUF 


=$A000 


SCRATCH BUFFER 



;DEFINITIONS OF APPLE ROM ADDRESSES: 

.DEF MONITR=$FF59 ;ROM MONITOR "RESET" ENTRY 

;SOME PAGE ZERO POINTERS FOR ANYBODY TO USE: 

.DEF PNTR1=0 

.DEF PNTR2=2 

.DEF PNTR3=4 



;S0ME HARDWARE LOCATIONS IN THE APPLE 

.DEF ASPEAK=$C030 ;THE SPEAKER 



; WHERE THIS MODULE GOES: 

.DEF HIAD=$B000 
.DEF LOAD=$2000 
•DEF BIAS=HIAD-L0AD 



; ACTUALLY GOES HERE 
;BUT IT LOADS HERE 
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*** ASM65 *** (V3.0-DS) OCT-79 



. PAGE 

; APEX BASIC SYSTEM FUNCTIONS 

*************************** 

.DEF HERE=$BOOO 
•LOG HERE , HERE-BIAS 

; "RELOAD" THE APEX SYSTEM FROM THE SYSTEM UNIT 









;THAT IS, LOAD 


THE WHOLE THING 


NO MATTER WHAT 


BOGO 


A9 


FF8D 


RELOAD: M0V# 


$FF , EXECUT 


;EXEG MODE OFF 


B005 


A9 


FG 


LDA# 


$FC 


; INDICATE A RELOAD 


B007 


8D 


50BF 


RELl: STA 


SYSENF 


;SAVE THE INDICATOR 


BOOA 


D8 




CLD 




; SECURITY 


BOOB 


78 




SEI 




;EQUALLY 


BOOC 


A2 


FF 


LDX// 


$FF 


;RESET STACK POINTER 


BOOE 


9A 




TXS 






BOOF 


AD 


52BF 


MOV 


SYSDEV.UNIT 


; TRANSFER FROM SYSTEM UNIT 


B015 


A9 


3185 


DM0 V// 


SYSFIL, PNTR3 


; POINT TO SYSTEM FILE NAME 


BOID 


20 


76B0 


JSR 


FSCANR 


;G0 FIND THE EXEC CODE. 


B020 


BO 


25 


BCS 


BARF 


;HEY, NONE HERE! 


B022 


AD 


69BF 


DMOV 


BLKNO,SYSBLK 


; FOUND, SO FORM THIS BLOCK 


B02E 


4C 


B2B0 


JMP 


BOOT 


;WE GO DO A SYSTEM RELOAD 


B031 


53 


5953 


SYSFIL: .ASCII 


"SYSTEM SYS" 


;EXEC FILE NAME 


B03C 


53 


4352 


SWPFIL: .ASCII 


"SCRATCH SYS" 


;SWAP SPACE FILE NAME 


B047 


A9 


008D 


BARF: MOV# 


0, SYSDEV 


:IF TROUBLE GO BACK TO UNIT 


B04C 


A9 


53 


LDA# 


<SERMES 


;SAY WE HAD A BAD SYSTEM UNIT 


B04E 


A2 


BO 


LDX# 


>SERMES 




B050 


4G 


FFBl 


JMP 


HRDERR 


;ITS A HARD ERROR 




nn 




SERMES: .BYTE 


%15 




D W J H 


n A 




.BYTE 


%12 








Af a 
H r _J H 


.ASCII 


"NOT A SYSTEM 


U 1 o K 


T3 A ^ 7 

dUd / 


c; o 
jZ 


/. c: A o 


.ASCII 


"REBOOT ON 0?" 




B073 


OD 




.BYTE 


%15 




B074 


OA 




.BYTE 


%12 




B075 


00 




.BYTE 













;LINK TO THE SCAN FUNCTION: 




B076 


AD 


3ABF 


FSCANR: DPSH 


INBUFD 


;SAVE THE INPUT BUFFER SPEC 


B07E 


A9 


008D 


DMOV# 


INPBUF , INBUFD 


;SET IT UP OUT WAY 


B088 


20 


44B2 


JSR 


FSGANl 


;G0 FIND THE FILE 


B08B 


68 


8D3B 


DPOP 


INBUFD 


;AND RESTORE HIS BUFFER SPEC 


B093 


60 




RTS 












; REENTER THE APEX EXEC, RELOAD 


IF NECCESSARY 


B094 


A9 


FD 


RENTER: LDA// 


$FD 


; INDICATE NON-VALID SWAP AREA 


B096 


8D 


50BF 


ENTER: STA 


SYSENF 


;SAVE REENTRY STATUS 


B099 


D8 




CLD 




;FOR SECURITY 


B09A 


78 




SEI 
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B09B 


A2 


FF 




LDX// 


$FF 




;COS IT MUST NOT BE LOW! 


B09D 


9A 






TXS 










B09E 


AD 


2SBF 




LDA 


SYBOMB 






CHECK RESIDENCY FLAG 


BOAl 


FO 


07 




BEQ 


TRYSWP 






=0 IF USER DID NOT BOMB APEX 


B0A3 


C9 


55 


ENTR2 : 


CMP# 


$55 






=$55 IF THE PROGRAM IS APEX 


B0A5 


DO 


OB 




BNE 


BOOT 






NEITHER, SO RELOAD APEX 


B0A7 


4C 


03BF 




JMP 


VSTART 






IS APEX, SO JUST RESTART IT 


BOAA 


20 


FEBO 


TRYSWP 


: JSR 


MOVMEM 






SWAP BACK SYSTEM PAGE 


BOAD 


AD 


2SBF 




LDA 


SYBOMB 






CHECK THE NEW RESIDENCY FLAG 


BOBO 


DO 


Fl 




BNE 


ENTR2 






IF WE CAN, REPEAT THE ABOVE 








;RESET 


AND BOOT: 








B0B2 


20 


DFBF 


BOOT: 


JSR 


KRESTD 




;RESET DISK DRIVES 


ror s 

XJ \J XJ ^ 


20 


£j U D ^, 




JSR 


OPCON 




;RESET CONSOLE 








; CONTINUE WITH 


BOOT 








BOBS 


AD 


52BF 




MOV 


SYSDEV, 


UNIT 


;BOOT IN FROM THE DEFAULT UNIT 


BOBE 


AD 


53BF 




DMOV 


SYSBLK, 


BLKNO 


; SETUP BLOCK NUMBER 








; "RUN" 


THE MEMORY IMAGE 


WHICH 


BEGINS AT 'BLKNO' 


BOCA 


20 


DBBO 


RUN: 


JSR 


GETR 






GET IT 


BOCD 


A9 


OOSD 




MOV# 


0,RERUNF 




NOT RUN YET 


B0D2 


4C 


03BF 




JMP 


VSTART 






AND ENTER AT IT'S STARTING ADDR 








; "GET" 


THE MEMORY IMAGE 


WHICH 


BEGINS AT 'BLKNO' 


B0D5 


20 


DBBO 


GET: 


JSR 


GETR 






,GET IT 


BODS 


40 


59FF 




JMP 


MONITR 




;BUT DON'T START IT 








;THIS 


ROUTINE 


READS IN 


THE MEMORY IMAGE AT 'BLKNO' 


BODB 


20 


C4B1 


GETR: 


JSR 


SETl 






;SET UP FOR COMMUNICATION AREA 


BODE 


20 


EFBl 




JSR 


READUS 






;READ IT 


BOEl 


20 


FEBO 




JSR 


MOVMEM 






;MOVE ABOUT 


B0E4 


20 


D4B1 




JSR 


SET3 






;SET UP FOR MAIN MEMORY 


B0E7 


20 


EFBl 




JSR 


READUS 






;READ IT 


BOEA 


60 






RTS 











;THIS ROUTINE WRITES THE CURRENT IMAGE BEGINNING AT 'BLKNO' 



BOEB 


20 


C4BI 


SAVE: 


JSR 


SETl 


;SET UP FOR COMMUNICATION 


BOEE 


20 


FEBO 




JSR 


MOVMEM 


; SHUFFLE MEMORY 


BOFl 


20 


F5B1 




JSR 


WRITUS 


;WRITE IT 


B0F4 


20 


FEBO 




JSR 


MOVMEM 


; SHUFFLE BACK 


B0F7 


20 


D4B1 




JSR 


SET3 


;SET UP FOR MAIN MEMORY 


BOFA 


20 


F5B1 




JSR 


WRITUS 


;WRITE IT 


BOFD 


60 






RTS 












;THIS 


ROUTINE 


PACKS THE PROGRAM 


SPECIFIC AREAS OF PAGES $ 








;INT0 


THE "COMMUNICATIONS" PAGE. 


ACTUALLY IT SWAPS THEM 


BOFE 


A9 


0085 


MOVMEM 


: DMOV// 


SYSPAG,PNTR1 


; FIRST DO LOW PART 


B106 


A9 


0085 




DMOV# 


C0MPAG,PNTR2 


;0F PAGE $BF 


BlOE 


AO 


00 




LDY# 





;FROM LOCATION 


BllO 


A2 


50 




LDX# 


$50 


;F0R $50 BYTES 


B112 


20 


IBBI 




JSR 


MOVSWP 


;D0 THE SHUFFLE 


B115 


A9 


0085 




MOV# 


0,PNTR1+1 


;THEN HIGH PART 
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B119 


A2 


BO 




LDX# 


256-$50 ; 


OF PAGE ZERO 


BllB 


Bl 


00 


MOVSWP 


: LDA@Y 


PNTRl ; 


\ 


BHD 


48 






PHA 






BllE 


Bl 


02 




LDA@Y 


PNTR2 ; 


: EXCHANGE THE BYTES 


B120 


91 


00 




STA@Y 


PNTRl ; 




B122 


68 






PLA 






B123 


91 


02 




STA@Y 


PNTR2 ; 


/ 


B125 


C8 






INY 




POINT TO NEXT ONE 


B126 


CA 






DEX 




COUNT THIS ONE 


B127 


DO 


F2 




BNE 


MOVSWP ; 


CONTINUE IF NOT DONE 


B129 


60 






RTS 












;READ 


IN APEX 


EXEC BUT WRITE OUT 


CURRENT IMAGE FIRST. 


B12A 


AD 


52BF 


SAVER: 


MOV 


SYSDEV,UNIT ; 


GET SYSTEM UNIT NUMBER 


B130 


A9 


3C85 




DM0 V# 


SWPFIL,PNTR3 


POINT TO SCRATCH FILE NAME 


B138 


20 


76B0 




JSR 


FSCANR 


GO LOOK FOR IT 


B13B 


90 


03 




BCC 


NOBARF 


DID WE FIND IT? 


B13D 


4C 


47B0 




JMP 


BARF 


HEY, WE DONT HAVE ONE! 


B140 


AD 


69BF 


NOBARF 


: DMOV 


BLKNO , SWPBLK 


SAVE BLOCK NUMBER FOR LATER 


B14C 


A9 


008D 




DM0 V# 


SWPLOC,DSKMEM 


SETUP SWAP PLACE 


B156 


A9 


408D 




M0V# 


SWPSIZ.DSKSIZ 


SETUP LENGTH 


B15B 


20 


EBBO 




JSR 


SAVE 


SAVE IT 


B15E 


A9 


FE 




LDA# 


$FE 


.INDICATE VALID SCRATCH AREA 


B160 


4C 


07B0 




JMP 


RELl 


THEN BOOT IN THE EXEC 








; SAVE 


CURRENT 


IMAGE THAT IS WRITTEN IN SCRATCH AREA 


B163 


AD 


68BF 


SAVESC 


: LDA 


UNIT 




B166 


48 






PHA 




; REMEMBER UNIT NUMBER 


B167 


AD 


69BF 




DPSH 


BLKNO 


; REMEMBER PLACE TO SAVE IT 


B16F 


AD 


52BF 




MOV 


SYSDEV.UNIT 


; SETUP POINTERS TO SCRATCH AREA 


B175 


AD 


55BF 




DMOV 


SWPBLK, BLKNO 




B181 


20 


DBBO 




JSR 


GETR 


;GET THE IMAGE INTO MEMORY 


B184 


68 


8D6A 




DPOP 


BLKNO 


;GET PLACE TO PUT IT BACK AGAIN 


B18C 


68 






PLA 






B18D 


8D 


68BF 




STA 


UNIT 


; REMEMBER UNIT 


B190 


AD 


17BF 




MOV 


PROSIZ,DSKSIZ 


; SETUP THE PROGRAM SIZE 


B196 


AD 


15BF 




DMOV 


USRMEM.DSKMEM 


;SET ADDRESS OF PROGRAM 


B1A2 


20 


EBBO 




JSR 


SAVE 


;SAVE IT 


B1A5 


A9 


FF 




LDA# 


$FF 


; INDICATE WE SAVED AN IMAGE 


B1A7 


4C 


96B0 




JMP 


ENTER 


;AND ENTER THE EXEC 








;HERE 


TO SAVE 


THE PROGRAM CURRENTLY IN MEMORY 


BIAA 


AD 


15BF 


SAVEA: 


DMOV 


USRMEM,DSKMEM 


;SET THE ADDRESS UP 


B1B6 


AD 


17BF 




MOV 


PROSIZ,DSKSIZ 


;SET THE SIZE UP 


BIBC 


20 


EBBO 




JSR 


SAVE 


;D0 IT 


BlBF 


A9 


FO 




LDA# 


$F0 


; INDICATE WE DID IT 


BlCl 


4C 


96B0 




JMP 


ENTER 


;AND ENTER THE EXEC 








;R0UTINE TO SETUP TO TRANSFER COMMUNICATION AREA 


B1C4 


A9 


008D 


SETl : 


DMOV# 


COMPAG.FADDR 


; SETUP ADDR 


BICE 


A9 


018D 




MOV// 


1 ,NBLKS 


;ONLY ONE BLOCK 


B1D3 


60 






RTS 




;AND RETURN 
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; ROUTINE TO SETUP TO TRANSFER MAIN MEMORY SEGMENT 



B1D4 


EE 


69BF 


SET3: DING 


BLKNO 


; POINT TO NEXT BLOCK ON UNIT 


BIDC 


AD 


lOBF 




DMOV 


DSKMEM.FADDR ; SETUP INITIAL ADDR POINTER 


B1E8 


AD 


12BF 




MOV 


DSKSIZ.NBLKS ;GET SIZE OF TRANSFER 


B lEE 


60 






RTS 




;AND RETURN 








9 


ROUTINE TO READ SEQUENTIAL 


LOGICAL BLOCKS FROM UNIT. 


BlEF 


20 


E2BF 


READUS: JSR 


KREAD 


;READ THE BLOCKS 


B1F2 


BO 


07 




BCS 


WRITER 


; BRANCH IF HARD ERROR 


B1F4 


60 






RTS 




; RETURN IF NO ERRORS 








;ROUTINE TO WRITE SEQUENTIAL BLOCKS TO UNIT. 


B1F5 


20 


E5BF 


WRITUS: JSR 


KWRITE 


;WRITE THE BLOCK 


B1F8 


BO 


01 




BCS 


WRITER 


; BRANCH IF HARD ERROR 


BlFA 


60 






RTS 




; RETURN IF NO ERRORS 


BIFB 


A9 


21 


WRITER: LDA# 


<DERMES 


; POINT TO ERROR MESSAGE 


BIFD 


A2 


B2 




LDX# 


>DERMES 


;AND FALL CEASAR 










HERE WITH A,X 


POINTING TO 


APPROPRIATE ERROR MESSAGE. 










ISSUE THE ERROR MESSAGE ON 


CONSOLE UNIT AND EXIT 










DIRECTLY TO THE SYSTEM MONITOR. 


BIFF 


85 


00 


HRDERR: ST A 


PNTRl 


;SAVE ADDR OF MESSAGE 


B201 


86 


01 




STX 


PNTRl+1 


;INTO A SCRATCH POINTER 


B203 


20 


EDB2 




JSR 


OPCON 


;RESET CONSOLE OUTPUT SIDE 


B206 


AO 


00 




LDY# 





;POINT TO FIRST CHAR OF MESSAGE 


B208 


8C 


20B2 




STY 


LTEMP 




B20B 


AC 


20B2 


HMLOOP: LDY 


LTEMP 


;GET POINTER TO NEXT CHAR 


B20E 


Bl 


00 




LDA@Y 


PNTRl 


;GET CHAR 


B210 


FO 


08 




BEQ 


HMDONE 


; BRANCH IF END OF MESSAGE 


B212 


20 


FAB2 




JSR 


CONOUT 


; OUTPUT TO CONSOLE 


B215 


EE 


20B2 




INC 


LTEMP 


; POINT TO NEXT CHAR 


B218 


DO 


Fl 




BNE 


HMLOOP 


;AND OUTPUT IT 


B21A 


20 


04B3 


HMDONE: JSR 


CONIN 


;WAIT FOR A KEY STRIKE 


B21D 


4C 


OOBO 




JMP 


RELOAD 


;AND TRY A RELOAD 


jj z. ^ vj 


on 




LTEMP: .BYTE 







B221 


OD 




DERMES: .BYTE 


%15 


; ADVANCE A LINE 


B222 


OA 






.BYTE 


%12 




B223 


44 


4953 




.ASCII 


"DISK ERROR 




B22E 


52 


4554 




.ASCII 


"RETURN TO 


RESET" 


B23D 


OD 






.BYTE 


%15 




B23E 


OA 






.BYTE 


%12 




B23F 


00 






.BYTE 















;CODE TO LOOK 


UP A FILE IN 


THE DIRECTORY. THIS ROUTINE TAKES A 










;POINTER TO A 


FILE NAME BY 


ADDRESS IN A,Y. THE NAME MUST BE 11 



CHARATERS LONG FILLED WITH BLANKS. NO FUZZY FILE NAMES PLEASE. 
THE FILE NAMES ARE 11 BYTES EACH ( 8-NAME , 3-EXT ) . THE STATUS 
ARRAY OF ONE BYTE PER FILE BEGINS AT +528. STATUS=0 IF NULL, 
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<128 IF CLOSED, >127 IF TENTATIVE THE FIRST BLOCK ARRAY BEGINS 



AT +576, TWO BYTES PER FILE, 
+672 . 



THE LAST BLOCK ARRAY BEGINS AT 



,DEF STATUS=528 ;OFFSET TO STATUS ARRAY 

,DEF FIRBLK=576 ;OFFSET TO FIRST BLOCK ARRAY 

,DEF LASBLK=672 ;OFFSET TO LAST BLOCK ARRAY 



B240 


85 


04 


FSCAN: 


STA 


PNTR3 ; 


POINTER TO NAME 


B242 


84 


05 




STY 


PNTR3+1 




B244 


AD 


3ABF 


FSCANl : 


DMOV 


INBUFD,FADDR ; 


READ DIRECTORY 


B250 


A9 


098D 




DMOV# 


DIRBLK,BLKNO ; 


INTO INPUT BUFFER 


B25A 


A9 


038D 




MOV# 


3,NBLKS ; 


WE ONLY NEED THREE BLOCKS 


B25F 


20 


E2BF 




JSR 


KREAD 










;S0 WE 


SCAN THROUGH THE FILE NAMES LOOKING FOR THE NAME 








;BUT IGNORING FILES WHOSE STATUS 


IS NOT >0. 


B262 


AD 


3ABF 




DMOV 


INBUFD,PNTR1 ; 


SETUP NAME POINTER 


B26C 


AD 


3ABF 




LDA 


INBUFD ; 


\ 


B26F 


18 


6910 




ADD# 


<STATUS ; 


\ 


B272 


85 


02 




STA 


PNTR2 ; 


SETUP POINTER 


B274 


AD 


3BBF 




LDA 


INBUFD+1 ; 


TO THE STATUS ARRAY 


B277 


69 


02 




ADC# 


>STATUS ; 


/ 


B279 


85 


03 




STA 


PNTR2+1 ; 


/ 


B27B 


A9 


308D 




MOV# 


MAXFL,FILENO 


RESET FILE COUNTER 


B280 


A2 


00 




LDX// 


; 


COUNT FILES 


B282 


AO 


00 


NEXT: 


LDY# 







B284 


Bl 


02 




LDA@Y 


PNTR2 


IS STATUS>0 


B286 


FO 


10 




BEQ 


TRYNXT ; 


NOT VALID IF 


B288 


30 


OE 




BMI 


TRYNXT ; 


OR IF <0 


B28A 


Bl 


00 


TSTLP: 


LDA@Y 


PNTRl 


DOES THE NAME MATCH? 


B28C 


Dl 


04 




CMP@Y 


PNTR3 




B28E 


DO 


08 




BNE 


TRYNXT ;IF NOT TRY NEXT FILE 


B290 


CO 


OA 




CPY# 


10 




B292 


FO 


20 




BEQ 


MATCH 


WHEN WE HAVE A MATCH 


B294 


C8 






INY 






B295 


4C 


8AB2 




JMP 


TSTLP 




B298 


E8 




TRYNXT: 


INX 




.COUNT IT 


B299 


A5 


00 




LDA 


PNTRl 




B29B 


18 


690B 




ADD// 


11 


,BUMP THE NAME POINTER 


B29E 


85 


00 




STA 


PNTRl 


;BY THE SIZE OF ONE NAME 


B2A0 


90 


02 




BCC 


NOBMP 




B2A2 


E6 


01 




INC 


PNTRl+1 




B2A4 


E6 


02D0 


NOBMP : 


DINC 


PNTR2 


;BUMP THE STATUS POINTER 


B2AA 


CE 


ECB2 




DEC 


FILENO 


;SEE IF WE HAVE CHECKED ALL 


B2AD 


FO 


03 




BEQ 


FAILED 


;IF SO THEN WE HAVE FAILED 


B2AF 


4C 


82B2 




JMP 


NEXT 


;LOOP BACK FOR NEXT CHECK 


B2B2 


38 




FAILED: 


SEC 




;SHOW WE FAILED 


B2B3 


60 




;IF WE 


RTS 
SUCCEED 


WE COME HERE 




B2B4 


AD 


3ABF 


MATCH: 


LDA 


INBUFD 


;\ 


B2B7 


18 


6940 




ADD// 


<FIRBLK 


; \ 


B2BA 


85 


00 




STA 


PNTRl 


; MAKE A POINTER TO THE 


B2BC 


AD 


3BBF 




LDA 


INBUFD+1 


; FIRST BLOCK ARRAY 


B2BF 


69 


02 




ADC// 


>FIRBLK 


; / 


B2C1 


85 


01 




STA 


PNTRl+1 


;/ 


B2C3 


AD 


3ABF 




LDA 


INBUFD 


;\ 



PAGE 7 



B2C6 


18 


69A0 




ADD// 


<LASBLK ; 


\ 


B2C9 


85 


02 




STA 


PNTR2 


AND A POINTER TO THE LAST 


B2CB 


AD 


3BBF 




LDA 


INBUFD+1 


BLOCK ARRAY 


B2CE 


69 


02 




ADC// 


>LASBLK 


/ 


B2D0 


85 


03 




STA 


PNTR2+1 


/ 


B2D2 


8A 






TXA 




PULL OUT THE BLOCK NUMBERS 


B2D3 


OA 






ASLA 




USING TWICE THE FILE NUMBER 


B2D4 


A8 






TAY 






B2D5 


Bl 


00 




LDA@Y 


PNTRl 


.FIRST BLOCK 


B2D7 


8D 


69BF 




STA 


BLKNO 


, SAVE FILE FIRST BLOCK 


B2DA 


Bl 


02 




LDA@Y 


PNTR2 


,LAST BLOCK 


B2DC 


8D 


6EBF 




STA 


END ELK 


;SAVE FILE LIMIT BLOCK 


B2DF 


C8 






INY 








a i 


uu 






r N i K 1 


,UiiiU riiLrH rSlixio 


B2E2 


8D 


6ABF 




STA 


BLKNO+1 


; SAVED IN THE 




R 1 


n 9 
uz 






T>\T T 13 9 

r W i KZ 


» ATTYTT T TADV T nPATTAM 


B2E7 


8D 


6FBF 




STA 


ENDBLK+l 






1 H 

i O 






CLC 






B2EB 


60 






RTS 






B2EC 


00 




FILENO: 


.BYTE 





;LOCAL TEMPORARY 








;F0R LOCAL USE, 


WE DEFINE THESE CONSOLE l/O FUNCTIONS 


B2ED 


A2 


00 


OPCON: 


LDX// 





;CONSOLE IS DEVICE 


B2EF 


8E 


5CBF 




STX 


NOWDEV 




B2F2 


20 


D9BF 




JSR 


KHAND 


;OPEN FOR INPUT 


B2F5 


A2 


03 




LDX// 


3 






Lr 






JMP 


KHAND 


;0PEN FOR OUTPUT 


B2FA 


kl 


00 


CONOUT: 


LDX// 







B2FC 


8E 


5CBF 




STX 


NOWDEV 




B2FF 


A2 


09 




LDX// 


9 




£> J U 1 


Lr 


u y D r 




JMP 


KHAND 


; OUTPUT TO CONSOLE 




A/ 


UU 


CONIN: 


LDX// 







B306 


BE 


5CBF 




STX 


NOWDEV 




B309 


A2 


06 




LDX// 


6 




B30B 


4C 


D9BF 




JMP 


KHAND 


; INPUT FROM CONSOLE 








;N0W SOME JUNK 


FOR A NULL DEVICE 




B30E 


4C 


1AB3 


NULDEV: 


JMP 


PUNT 




B311 


4C 


1AB3 




JMP 


PUNT 




B314 


4C 


1AB3 




JMP 


PUNT 




B317 


4C 


1AB3 




JMP 


PUNT 




B31A 


A9 


lA 


PUNT: 


LDA// 


$1A 


;GIVE EOF INCASE IT WAS INPU 


B31C 


18 






CLC 






B31D 


60 






RTS 







ROUTINE TO DISPATCH TO A PARTICULAR FUNCTION AND DEVICE 
THE DEVICE IT WILL USE IS IN THE SYSTEM GLOBAL "NOWDEV". 
THE FUNCTION CODE =(DEVICE HANDLER ENTRY OFFSET) IS IN THE 
X REGISTER. ARGUMENTS, IF ANY ARE TRANSFERED IN THE AC & Y . 



B31E 48 



HANDY : PHA 



;SAVE ARGUMENTS IF ANY 
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B31F 


98 






TYA 






B320 


48 






PHA 






B321 


AD 


5CBF 




LDA 


NOWDEV 


;AND THE DEVICE NUMBER 


B324 


C9 


08 




CMP# 


8 


;N0 MORE THAN 8 DEVICES! 


B326 


90 


04 




BLT 


HANDOK 


; CONTINUE IF ITS OK 


B328 


68 






PLA 




;REPAIR STACK 


B329 


68 






PLA 






B32A 


38 






SEC 




;BAD DEVICE NUMBER 


B32B 


60 






RTS 




;EXIT, CANT DO IT 


B32C 


OA 




HANDOK: 


ASLA 




;DEVICE NUMBER TIMES 2 


B32D 


A8 






TAY 




;WILL BE INDEX INTO TABLE 


B32E 


8A 






TXA 




; FUNCTION CODE= OFFSET 


B32F 


18 






CLC 






B330 


79 


COBF 




ADCY 


DEVTAB 


; COMPUTE THE ADDRESS 


B333 


8D 


42B3 




STA 


HANDV+1 


;0F THE ROUTINE 


B336 


A9 


00 




LDA# 





;THAT DOES THE JOB 


B338 


79 


CIBF 




ADCY 


DEVTAB+1 




B33B 


8D 


43B3 




STA 


HANDV+2 




B33E 


68 






PLA 




;GET ARGUMENTS BACK 


B33F 


A8 






TAY 




;INTO Y REGISTER 


B340 


68 






PLA 




;AND ACCUMULATOR 


B341 


4C 


41B3 


HANDV : 


JMP 




;AND DISPATCH TO IT 
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. PAGE 

;DISK DRIVER. USES RWTS WHICH MUST RESIDE AT $B800 
;USEFUL DEFINITIONS 









.DEF 


RWTS=$BDOO 




ENTRY POINT OF "RWTS" 








; COMMANDS TO 


RWTS 












.DEF 


NULL=0 




"NULL" COMMAND 








• DEF 


READ0=1 




, "READ" DATA COMMAND 








.DEF 


WRITE=2 




."WRITE" DATA COMMAND 








;ERR0R CODES 


THAT MAY BE RETURNED BY THIS ROUTINE 








.DEF 


BADINF=1 




BAD INFORMATION WAS PASSED 








.DEF 


WRTPRT=$10 




DISKETTE WRITE PROTECTED 








.DEF 


V0LMMT=$20 


; VOLUME MISMATCH ERROR 








.DEF 


DRVERR=§40 




STRANGE DRIVE ERROR 








.DEF 


RDERR=$80 


;READ ERROR 








;R0UTINE TO 


READ SEQUENTIAL 


BLOCKS FROM DISK. 


B344 


20 


BEB3 


ADEVRB: JSR 


SETUP 




.SETUP GOODIES 


B347 


BO 


10 


BCS 


RDBRET 




.BRANCH IF ERROR DURING SETUP 


B349 


A9 


01 


RDBNXT: LDA# 


READO 




; INDICATE THAT WE ARE READING 


B34B 


20 


70B3 


JSR 


DOIO 




,D0 THE I-O 


B34E 


BO 


09 


BCS 


RDBRET 




.BRANCH IF ERROR 


B350 


20 


A0B3 


JSR 


INCADR 




.ADVANCE POINTERS 


B353 


CE 


3EB4 


DEC 


ANBLKS 




;MORE BLOCKS TO READ? 


B356 


DO 


Fl 


BNE 


RDBNXT 




; BRANCH IF YES 


B358 


18 




RESTD: CLC 






.NO, THEN INDICATE SUCCESS 


B359 


60 




RDBRET: RTS 






; RETURN TO CALLER 








;R0UTINE TO 


WRITE SEQUENTIAL 


BLOCKS TO DISK. 


B35A 


20 


BEB3 


DEVWOB: JSR 


SETUP 




SETUP GOODIES 


B35D 


BO 


10 


BCS 


WRBRET 




BRANCH IF ERROR DURING SETUP 


B35F 


A9 


02 


WRBNXT: LDA// 


WRITE 




INDICATE WE WANT TO WRITE 


B361 


20 


70B3 


JSR 


DOIO 




PERFORM THE 1-0 


B364 


BO 


09 


BCS 


WRBRET 




BRANCH IF ERROR 


B366 


20 


A0B3 


JSR 


INCADR 




ADVANCE POINTERS 


B369 


CE 


3EB4 


DEC 


ANBLKS 




MORE BLOCKS TO WRITE? 


B36C 


DO 


Fl 


BNE 


WRBNXT 




BRANCH IF YES 


B36E 


18 




CLC 






NO, INDICATE SUCCESS 


B36F 


60 




WRBRET: RTS 






RETURN TO CALLER 








; ROUTINE TO 


CALL "RWTS" SUBROUTINE. 


B370 


8D 


5FB4 


DOIO: STA 


IBCMD 




SAVE COMMAND IN lOB 


B373 


AD 


3FB4 


DMOV 


AFADR, IBADDR 




COPY CURRENT ADDRESS INTO 10 


B37F 


20 


BAB3 


JSR 


TICKO 




MAKE "TICKING" NOISES 


B582 


A9 


B4 


LDA// 


>IOB 




GET ADDR OF lOB 


B384 


AO 


53 


LDY# 


<IOB 






B386 


20 


OOBD 


JSR 


RWTS 




CALL "RWTS" TO DO THE WORK 


B389 


08 




PHP 






SAVE PROCESSOR STATUS 


B38A 


A9 


008D 


MOV// 


NULL, IBCMD 




ZAP COMMAND 
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£> J o r 


AD 


J H O H- 


DMOV 


lOBSLT.IBPSLT 


;MUVE CURRENT SLOT AND DRIVE 


B39B 


AD 


60B4 


LDA 


IBSTAT 


;GET STATUS CODE IN CASE ERROR 


B39E 


28 




PLP 




;RESTORE PROCESSOR STATUS 


B39F 


60 




DOIORT: RTS 




;AND RETURN TO CALLER 








;R0UTINE TO ADVANCE POINTERS 


IN MEMORY AND ON DISK. 


B3A0 


EE 


40B4 


INCADR: INC 


AFADR+1 


; ADVANCE MEMORY ADDRESS 


B3A3 


EE 


58B4 


INC 


IBSECT 


;BUMP TO NEXT SECTOR NUMBER 


B3A6 


AD 


58B4 


LDA 


IBSECT 




B3A9 


AE 


68BF 


LDX 


UNIT 




D -J t\\^ 


nn 

u u 


ARB A 

H Jj JD H 


CMPX 


NUMSEC 


,UiU Wti UVliKi'LUW 10 NEXT TRACK.' 


B3AF 


90 


08 


BCC 


INCRET 


; BRANCH IF NOT 


B3B1 


A9 


00 


LDA// 





;YES, THEN SET TO SECTOR ZERO 


D JD J 


oU 


Q D /i 


STA 


IBSECT 




B3B6 


EE 


57B4 


INC 


IBTRK 


;0N NEXT TRACK 


B3B9 


60 




INCRET: RTS 




;AND RETURN TO CALLER 








; SUBROUTINE TO 


TOGGLE THE SPEAKER IN ORDER TO MAKE A TICKING 








;NOISE BECAUSE 


THE DISK-II IS 


TOO QUIET. 


B3BA 


8D 


30C0 


TICKO: STA 


ASPEAK 


; TOGGLE SPEAKER PORT 


B3BD 


60 




RTS 




;AND RETURN 








;ROUTINE TO SETUP THINGS PRIOR TO DOING I-O. 


B3BE 


20 


2AB4 


SETUP: JSR 


VALDRV 


;IS THIS A PERMITTED UNIT? 


B3C1 


BO 


63 


BCS 


SETERR 


;N0, ERROR 


B3C3 


AD 


6BBF 


DMOV 


NBLKS.ANBLKS 


; LOCAL COPY OF NUMBER OF BLKS 


B3CF 


AD 


6CBF 


DMOV 


FADDR,AFADR 


; LOCAL COPY OF BASE ADDRESS 


B3DB 


AE 


68BF 


LDX 


UNIT 


;GET UNIT NUMBER 


B3DE 


BD 


43B4 


LDAX 


DEVSLT 


; CONVERT TO SLOT NUMBER OF CONT 


B3E1 


FO 


43 


BEQ 


SETERR 


; BRANCH IF ERROR, BUM INFO 


B3E3 


48 




PHA 






B3E4 


29 


FO 


AND// 


$F0 




B3E6 


8D 


54B4 


STA 


lOBSLT 


;SAVE FOR "RWTS" ROUTINE 


B3E9 


68 




PLA 






B3EA 


29 


OF 


AND// 


$0F 




B3EC 


BD 


55B4 


STA 


lOBDRV 


;SAVE FOR "RWTS" ROUTINE 


B3EF 


A9 


008D 


MOV// 


0, IBTRK 


;SET TRACK NUMBER TO ZERO 


B3F4 


AD 


69BF 


MOV 


BLKNO, IBSECT 


;GET LOW ORDER BLOCK NUMBER 


B3FA 


AD 


6ABF 


MOV 


BLKNO+1 ,TEMP 


; STORE HIGH ORDER BLOCK 


B400 


AD 


41B4 


NEXTRY: LDA 


TEMP 


;GET HIGH ORDER 


BA03 


DO 


08 


BNE 


NOTTRK 


; CAN'T BE DONE IF NON-ZERO 


B405 


AD 


58B4 


LDA 


IBSECT 


;GET REMAINDER 


B408 


DD 


4BB4 


CMPX 


NUMSEC 


;LESS THAN A TRACK YET? 


B40B 


90 


18 


BCC 


GOTIT 


; BRANCH IF YES, THEN WE HAVE IT 


B40D 


AD 


58B4 


NOTTRK: LDA 


IBSECT 


;N0, SO SUBTRACT ONE TRACK SIZE 


B410 


38 




SEC 






B411 


FD 


4BB4 


SBCX 


NUMSEC 




B414 


8D 


58B4 


STA 


IBSECT 




B417 


AD 


41B4 


LDA 


TEMP 




B41A 


E9 


00 


SBC// 







B41C 


8D 


41B4 


STA 


TEMP 




B41F 


EE 


57B4 


INC 


IBTRK 


;AND ADVANCE TO NEXT TRACK 


B422 


4C 


00B4 


JMP 


NEXTRY 


;AND CONTINUE 
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B425 


60 




GOTIT: 


RTS 






;YES, THEN ALL OK 


B426 


A9 


01 


SETERR: 


LDA# 


BADINF 




; INDICATE BAD INFO 


B428 


38 






SEC 






; INDICATE FAILURE 


B429 


60 






RTS 






! 


AND RETURN 


B42A 


A9 


01 


VALDRV: 


LDA# 


1 




: 


AC WILL BE MASK 


B42C 


AE 


68BF 




LDX 


UNIT 




! 


GET UNIT NUMBER 


B42F 


FO 


04 




BEQ 


VALDl 




9 


SKIP SHIFT IF UNIT ZERO 


B431 


OA 




VALD2: 


ASIA 






• 


ELSE SHIFT THE BIT UP 


B432 


CA 






DEX 










B433 


DO 


FC 




BNE 


VALD2 








"D /. Ti t; 


ZD 


J i Br 


IT A T T\ 1 ■ 

V ALU i : 


AND 


Dh, VMbK 






COMPARE TO PERMIT BYTE 


B438 


DO 


02 




BNE 


VALD3 




;#0 MEANS THE UNIT IS OK 


B43A 


38 






SEC 






;ELSE INVALID 


B43B 


60 






RTS 










R A r 

o H J V> 


1 8 
1 o 




\7 A T r» • 
V ALiU J . 


L> J_j L* 










B43D 


60 






RTS 










B43E 


00 




ANBLKS : 


.BYTE 









HOLDS NUMBER OF BLOCKS 


B43F 


00 


00 


AFADR : 


.WORD 







;BASE ADDR OF TRANSFER 


B441 


00 


00 


TEMP: 


.WORD 







: 


GENERAL PURPOSE TEMPORARY 








;THESE 


TABLES 


ARE INDEXED BY 


UNIT NUMBER 








;ENTRIES TO DEVSLT ARE 


SLOT 


*$10+DRIVE 


B443 


61 




DEVSLT: 


.BYTE 


$61 






UNIT = SLOT 6 DRIVE 1 


B444 


62 






.BYTE 


$62 






UNIT 1 = SLOT 6 DRIVE 2 




D I 






.BYTE 


$51 






UNIT 2 = SLOT 5 DRIVE 1 


B446 


52 






.BYTE 


$52 






UNIT 3 = SLOT 5 DRIVE 2 


B447 


71 






.BYTE 


$71 






UNIT 4 = SLOT 7 DRIVE 1 


B448 


72 






.BYTE 


$72 






UNIT 5 = SLOT 7 DRIVE 2 


B449 


73 






.BYTE 


$73 






UNIT 6 = SLOT 7 DRIVE 3 


B44A 


74 






.BYTE 


$74 






UNIT 7 = SLOT 7 DRIVE 4 








; NUMBER 


OF SECTORS PER 


TRACK 






B44B 


OD 




NUMSEC: 


.BYTE 


13 






ORIGINAL APPLE FORMAT USES 


B44C 


OD 






.BYTE 


13 






13 PER TRACK FOR DISK ][. 


Ti / / TV 

B44D 


OD 






.BYTE 


13 








B44E 


OD 






.BYTE 


13 










i A 






.BYTE 


26 






8" USES 26 PER PSUEDO TRACK 


B450 


lA 






.BYTE 


26 






WHEN ITS A SORRENTO VALLEY 


B451 


lA 






.BYTE 


26 






CONTROLLER. 


B452 


lA 






.BYTE 


26 














;THIS IS THE I 


-0 CONTROL BLOCK FOR "RWTS" SUBROUTINE. 


B453 


01 




lOB: 


.BYTE 


1 






TYPE OF lOB (ALWAYS A 1) 


B454 


00 




lOBSLT: 


.BYTE 









HOLDS SLOT NUMBER OF DISK CONTR 


B455 


00 




lOBDRV: 


.BYTE 









HOLDS DRIVE NUMBER OF UNIT 


B456 


00 






.BYTE 









.VOLUME NUMBER (0 MATCHES ALL) 


B457 


00 




IBTRK: 


.BYTE 









HOLDS TRACK NUMBER 


B458 


00 




IBSECT: 


.BYTE 









HOLDS SECTOR NUMBER 


B459 


64 


B4 




.WORD 


DEVT 






.POINTER TO DISK CHARACTER 


B45B 


00 


00 


IBADDR: 


.WORD 









; POINTER TO WHERE DATA IS 


B45D 


00 






.BYTE 









lUNUSED 
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B45E 


00 




.BYTE 





UNUSED 


B45F 


00 


IBCMD: 


.BYTE 





HOLDS COMMAND CODE 


B460 


00 


IBSTAT: 


.BYTE 





ERROR CODE IF CARRY IS SET 


B461 


00 


IBVOL: 


.BYTE 





VOLUME NUMBER FOUND 


B462 


60 


IBPSLT: 


.BYTE 


$60 


SLOT NUMBER OF PREVIOUS ACCESS 


B463 


01 


IBPDRV: 


.BYTE 


1 


DRIVE OF PREVIOUS ACCESS 


B464 


00 


DEVT: 


• BYTE 





DISK TYPE (0 FOR DISK-II) 


B465 


01 




.BYTE 


1 


NUMBER OF PHASES (=1) 


B466 


EF D8 




.WORD 


$D8EF 


.TIME COUNT ($D8EF FOR DISK-II) 
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• PAGE 

; ***SYSTEM PAGE MODULE FOR APEX*** 

; ***PROGRAM SPECIFIC AREA*** 

;THE FIRST $50 LOCATIONS OF THIS PAGE ARE SAVED WITH THE 
;USER PROGRAM IN PLACE OF THE FIRST $50 LOCATIONS IN PAGE 

•DEF HERE=$BF00 
.LOC HERE, HERE-BIAS 

•DEF SYSPAG=. 









; PROGRAM 


START 


AND EXIT VECTORS: 


BFOO 


4C 


OOBF 


VRSTRT: 


JMP 




PROGRAM RESTART VECTOR 


BF03 


4C 


03BF 


VSTART: 


JMP 


> 


PROGRAM START VECTOR 


BF06 


4C 


DOBF 


VEXIT: 


JMP 


KRENTR ; 


PROGRAM NORMAL EXIT ADDRESS 


BF09 


4C 


D6BF 


VERROR: 


JMP 


KRELOD ; 


PROGRAM ERROR EXIT ADDRESS 


BFOC 


4C 


D3BF 


VABORT: 


JMP 


KSAVER ;USER ABORT EXIT ADDRESS 








; INTERNAL USE 


BY APEX: 




BFOF 


00 






.BYTE 


; 


SPARE 


BFIO 


00 


00 


DSKMEM: 


.WORD 


;BASE ADDR OF MEMORY SEGMENT ON DISK 


BF12 


00 




DSKSIZ: 


.BYTE 


; 


SIZE OF IMAGE ON THE DISK 


BF13 


00 


00 




.WORD 


; SPARE 








; PROGRAM 


MEMORY PARAMETERS: 


BF15 


00 


00 


USRMEM: 


.WORD 


;BASE ADDR OF USER PROGRAM 


BF17 


00 




PROSIZ: 


.BYTE 


;USER PROGRAM SIZE IN PAGES 








; (LEAVE 


SPACE 


HERE FOR MORE USER PROGRAM SEGMENTS) 










.DEF 


HERE=SYSPAG+$20 










.LOC 


HERE, HERE-BIAS 


BF20 


00 




RERUNF : 


.BYTE 





RERUN FLAG 


BF21 


54 


4D50 


DEXTO: 


.ASCII 


"TMP" 


DEFAULT EXTENSION FOR OUTPUT FILES 


BF24 


54 


4D50 


DEXTI : 


.ASCII 


"TMP" 


DEFAULT EXTENSION FOR INPUT FILES 


BF27 


00 




DEFAUL: 


.BYTE 





SINGLE BIT DEFAULT FLAGS 


BF28 


FF 




SYBOMB : 


.BYTE 


$FF 


$FF IF PROG BOMBS SYSTEM 


BF29 


BO 




USRTOP: 


.BYTE 


$B0 


LAST PAGE+1 FOR USER PROGRAM 


BF2A 


00 






.BYTE 





SPARE 


BF2B 


00 


00 




.WORD 





SPARE 


BF2D 


00 


00 




.WORD 





SPARE 








;I2L PARAMETERS: 




BF2F 


00 




I2LFLG: 


.BYTE 


;$FF IF PROGRAM USES SYSTEM I2L 


BF30 


00 


00 


I2LBAS : 


.WORD 


; START OF PSEUDO CODE FOR SYSTEM I2L 


BF32 


00 


00 


I2LHEP: 


.WORD 


; START OF HEAP FOR SYSTEM I2L 


BF34 


00 


00 




.WORD 


; SPARE 



BF36 00 63 



;I/0 BUFFERS: (MAY NEED TO BE INTEGRAL PAGES! SEE HANDLER) 
OTBUFD: .WORD $6300 ;BASE OF OUTPUT BUFFER TO USE 



BF38 FF 63 OTBUFE: .WORD $63FF ;END OF OUTPUT BUFFER 

BF3A 00 60 INBUFD: .WORD $6000 ;BASE OF INPUT BUFFER TO USE 

BF3C FF 62 INBUFE : .WORD $62FF ;END OF INPUT BUFFER 



; (LEAVE SPACE HERE FOR MORE INPUT FILE BUFFER SPECS) 
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.PAGE 

; SYSTEM SPECIFIC AREA 

;THE REST OF THIS PAGE IS NOT SAVED BUT RATHER IS BOOTED 
;DURING THE ORIGINAL BOOTUP PROCESS. IT REMAINS UNCHANGED 
;DURING NORMAL OPERATION. 



•DEF HERE=SYSPAG+$50 
.LOG HERE , HERE-BIAS 



BF50 


FC 




SYSENF 


.BYTE 


$FC 


FLAG SHOWING RE-ENTRY CONDITION 


BF51 


01 




DEVMSK 


.BYTE 


$01 


MASK SHOWING VALID UNITS 


BF52 


00 




SYSDEV 


.BYTE 





UNIT SYSTEM IS ON 


BF53 


00 


00 


SYSBLK 


.WORD 





BLOCK SYSTEM FILE IS IN 


BF55 


00 


00 


SWPBLK 


.WORD 





BLOCK SWAP FILE IS IN 


BF57 


00 


00 


SYSDAT 


.WORD 





SYSTEM DATE GOES HERE 


BF59 


00 






.BYTE 





3 LOGS 


BF5A 


FF 


02 


LINIDX 


.WORD 


$2FF 


INPUT LINE POINTER ($FF=NULL) 


BF5G 


00 




NOWDEV 


.BYTE 





CURRENT BYTE I/O DEVICE 


BF5D 


FF 




EXECUT 


: .BYTE 


$FF 


ZERO IF EXEC MODE IS ON 


BF5E 


00 




LOWER: 


.BYTE 





LOWER CASE SWITCH (0=UPPER) 










.DEF 


HERE=SYSPAG+$68 


;LEAVE SPACE FOR LATER 










.LOG 


HERE, HERE-BIAS 





;I-0 INFORMATION BLOCK FOR UNIT DRIVERS: 



BF68 


00 




UNIT: 


.BYTE 


; CURRENT UNIT NUMBER 


BF69 


00 


00 


BLKNO: 


.WORD 


; CURRENT BLOCK NUMBER 


BF6B 


00 




NBLKS: 


.BYTE 


; NUMBER OF BLOCKS TO TRANSFER 


BF6C 


00 


00 


FADDR: 


.WORD 


;ADDRESS POINTER 


BF6E 


00 


00 


ENDBLK: 


.WORD 


;AUXILLIARY PARAMETER 








; OUTPUT 


FILE INFORMATION: 




BF70 


00 


00 


OTLBLK: 


.WORD 





FIRST BLOCK OF OUTPUT FILE 


BF72 


00 


00 


OTHBLK: 


.WORD 





LAST BLOCK OF OUTPUT FILE 


BF74 


00 




OTFLG: 


.BYTE 





STATUS FLAGS 


BF75 


00 




OTNO: 


.BYTE 





DIRECTORY NUMBER OF OUTPUT FILE 


BF76 


00 




OTDEV: 


.BYTE 





UNIT NUMBER WHICH OUTPUT FILE I 


BF77 


00 






.BYTE 





SPARE 








; INPUT 


FILE INFORMATION: 




BF78 


00 


00 


INLBLK: 


.WORD 





.FIRST BLOCK OF INPUT FILE 


BF7A 


00 


00 


INHBLK: 


.WORD 





;LAST BLOCK OF INPUT FILE 


BF7C 


00 




INFLG: 


.BYTE 





.STATUS FLAGS 


BF7D 


00 




INNO: 


.BYTE 





.DIRECTORY NUMBER OF INPUT FILE 


BF7E 


00 




INDEV: 


.BYTE 





UNIT NUMBER WHICH INPUT FILE IS 


BF7F 


00 






.BYTE 





SPARE 








; SPACE 


FOR MORE 


FILES HERE 
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.PAGE 









.DEF 


HERE=SYSPAG+$CO 










.LOG 


HERE , HERE-BIAS 










;BYTE I/O DEVI 


CE HANDLER ADDRESS 


TABLE : 


BFCO 


CO 


B5 


DEVTAB: .WORD 


$B5C0 


0=LINE BUFFERED CONSOLE 


BFC2 


80 


B4 


.WORD 


$B480 


1=C0NS0LE DEVICE 


BFC4 


OE 


B3 


.WORD 


NULDEV 


2=PRINTER 


BFC6 


00 


AD 


.WORD 


$AD00 


3=DISK FILES 


BFC8 


OE 


B3 


.WORD 


NULDEV 


4=RS232 SERIAL PORT 


BFCA 


OE 


B3 


.WORD 


NULDEV 


5=UNUSED 


BFCC 


OE 


B3 


.WORD 


NULDEV 


6=UNUSED 


BFCE 


OE 


B3 


.WORD 


NULDEV 


7=NULL DEVICE 



;LINK VECTORS TO RESIDENT CODE: 



BFDO 


4C 


94B0 


KRENTR: 


JMP 


RENTER 


BOOT IN APEX (WARM START) 


BFD3 


4C 


2AB1 


KSAVER: 


JMP 


SAVER 


PRESERVE CURRENT USER IMAGE 


BFD6 


4C 


OOBO 


KRELOD: 


JMP 


RELOAD 


RELOAD APEX (COLD START) 


BFD9 


4C 


1EB3 


KHAND : 


JMP 


HANDY 


LINK TO BYTE I/O DEVICE 


BFDC 


4C 


40B2 


KSCAN: 


JMP 


FSCAN 


FILE LOOKUP ROUTINE 


BFDF 


4C 


58B3 


KRESTD: 


JMP 


RESTD 


RESET DISK DRIVER 


BFE2 


4C 


44B3 


KREAD: 


JMP 


ADEVRB 


READ CONTIGUOUS BLOCKS 


BFE5 


4C 


5AB3 


KWRITE : 


JMP 


DEVWOB 


WRITE CONTIGUOUS BLOCKS 



;LINKS FOR APEX EXEC USE: 



BFE8 4C 


63B1 


KSAVS: 


JMP 


SAVESC 


;SAVE 


A SWAPPED MEMORY IMAGE 


BFEB 4C 


CABO 


KRUN: 


JMP 


RUN 


;RUN A 


MEMORY IMAGE 


BFEE 4C 


AABl 


KSAVA: 


JMP 


SAVEA 


;SAVE 


A MEMORY IMAGE 


BFFl 4C 


D5B0 


KGET: 


JMP 


GET 


;GET A 


MEMORY IMAGE 








.END 










BFF4 




ADEVRB 


B344 


AFADR 


B43F 


ANBLKS 


B43E 




ASPEAK 


C030 


BADINF 


0001 


BARF 


B047 




BIAS 


9000 


BLKNO 


BF69 


BOOT 


B0B2 




COMPAG 


B700 


CONIN 


B304 


CONOUT 


B2FA 




DEFAUL 


BF27 


DERMES 


B221 


DEVMSK 


BF51 




DEVSLT 


B443 


DEVT 


B464 


DEVTAB 


BFCO 




DEVWOB 


B35A 


DEXTI 


BF24 


DEXTO 


BF21 




DIRBLK 


0009 


DOIO 


B370 


DOIORT 


B39F 




DRVERR 


0040 


DSKMEM 


BFIO 


DSKSIZ 


BF12 




ENDBLK 


BF6E 


ENTER 


B096 


ENTR2 


B0A3 




EXECUT 


BF5D 


FADDR 


BF6C 


FAILED 


B2B2 




FILENO 


B2EC 


FIRBLK 


0240 


FSCAN 


B240 




FSCANl 


B244 


FSCANR 


B076 


GET 


BODS 




GETR 


BODB 


GOTIT 


B425 


HANDOK 


B32C 




HANDV 


B341 


HANDY 


B31E 


HERE 


BFCO 




HIAD 


BOOO 


HMDONE 


B21A 


HMLOOP 


B20B 




HRDERR 


BIFF 


I2LBAS 


BF30 


I2LFLG 


BF2F 




I2LHEP 


BF32 


IBADDR 


B45B 


IBCMD 


B45F 




IBPDRV 


B463 


IBPSLT 


B462 


IBSECT 


B458 




IBSTAT 


B460 


IBTRK 


B457 


IBVOL 


B461 




INBUFD 


BF3A 


INBUFE 


BF3C 



INCADR 


B3A0 


INCRET 


B3B9 


INDEV 


BF7E 


INFLG 


BF7C 


INHBLK 


BF7A 


INLBLK 


BF78 


INNO 


BF7D 


INPBUF 


AOOO 


lOB 


B453 


lOBDRV 


B455 


lOBSLT 


B454 


KGET 


BFFl 


KHAND 


BFD9 


KREAD 


BFE2 


KRELOD 


BFD6 


KRENTR 


BFDO 


KRESTD 


BFDF 


KRUN 


BFEB 


KSAVA 


BFEE 


KSAVER 


BFD3 


KSAVS 


BFE8 


KSCAN 


BFDC 


KWRITE 


BFE5 


LASBLK 


02A0 


LINIDX 


BF5A 


LOAD 


2000 


LOWER 


BF5E 


LTEMP 


B220 


MATCH 


B2B4 


MAXFL 


0030 


MONITR 


FF59 


MOVMEM 


BOFE 


MOVSWP 


BllB 


NBLKS 


BF6B 


NEXT 


B282 


NEXTRY 


B400 


NOBARF 


B140 


NOBMP 


B2A4 


NOTTRK 


B40D 


NOWDEV 


BF5C 


NULDEV 


B30E 


NULL 


0000 


NUMSEC 


B44B 


OPCON 


B2ED 


OTBUFD 


BF36 


OTBUFE 


BF38 


OTDEV 


BF76 


OTFLG 


BF74 


OTHBLK 


BF72 


OTLBLK 


BF70 


OTNO 


BF75 


PNTRl 


0000 


PNTR2 


0002 


PNTR3 


0004 


PROSIZ 


BF17 


PUNT 


B31A 


RDBNXT 


B349 


RDBRET 


B359 


RDERR 


0080 


RE ADO 


0001 


READUS 


BIEF 


RELl 


B007 


RELOAD 


BOOO 


RENTER 


B094 


RERUNF 


BF20 


RESTD 


B358 


RUN 


BOCA 


RWTS 


BDOO 


SAVE 


BOEB 


SAVEA 


BIAA 


SAVER 


B12A 


SAVESC 


B163 


SERMES 


B053 


SETl 


B1C4 


SET3 


B1D4 


SETERR 


B426 


SETUP 


B3BE 


STATUS 


0210 


SWPBLK 


BF55 


SWPFIL 


B03C 


SWPLOC 


6000 


SWPSIZ 


0040 


SYBOMB 


BF28 


SYSBLK 


BF53 


SYSDAT 


BF57 


SYSDEV 


BF52 


SYSENF 


BF50 


SYSFIL 


B031 


SYSPAG 


BFOO 


TEMP 


B441 


TICKO 


B3BA 


TRYNXT 


B298 


TRYSWP 


BOAA 


TSTLP 


B28A 


UNIT 


BF68 


USRMEM 


BF15 


USRTOP 


BF29 


VABORT 


BFOC 


VALDl 


B435 


VALD2 


B431 


VALD3 


B43C 


VALDRV 


B42A 


VERROR 


BF09 


VEXIT 


BF06 


VOLMMT 


0020 


VRSTRT 


BFOO 


VSTART 


BF03 


WRBNXT 


B35F 


WRBRET 


B36F 


WRITE 


0002 


WRITER 


BlFB 


WRITUS 


B1F5 


WRTPRT 


0010 







NO ERRORS DETECTED 



PAGE 



APEX CONSOLE HANDLER 



.DEF HIAD=$B480 ;ACTUALLY GOES HERE 

•DEF LOAD=$2480 ; BUT WE LOAD IT HERE 

•DEF BIAS=HIAD-LOAD 



; WHERE THE DEVICE HANDLER TABLE IS SO WE CAN PATCH INTO IT: 
.DEF DEVTAB=$BFCO 



;SOME SPECIAL CHARATERS : 



.DEF 


RETYPE 


= $15 


.DEF 


LINDEL 


= $18 


• DEF 


KBABOR 


= $19 


.DEF 


KBEXIT 


= $3 


• DEF 


DOBLSH 


= $F 


.DEF 


DOBRAK 


= $B 


.DEF 


HALTER 


= $13 


.DEF 


CASSHF 


= $1D 


.DEF 


EOFCOD 


= $1A 



CTRL-U = RETYPE CHARACTER 
CTRL-X = DELETE LINE 
CTRL-Y = ABORT PROGRAM 
CTRL-C = EXIT PROGRAM 
CRTL-0 = GET BACKSLASH 
CTRL-K = GET LEFT BRACKET 
CTRL-S = STOP OUTPUT 
CTRL-SHIFT-M = SHIFT CASE 
CTRL-Z = END-OF-FILE 



;ASCII CHARACTERS 



.DEF 


BSPC0D=$8 


; BACKSPACE 


.DEF 


CRCOD=$D 


; RETURN 


.DEF 


LFCOD=$A 


;LINE FEED 


.DEF 


ESCC0D=$1B 


; ESCAPE 


.DEF 


RUBCHR=$7F 


;RUBOUT 


.DEF 


TABC0D=$9 


;TAB 


.DEF 


FORMCD=$C 


;FORM FEED 


.DEF 


BELC0D=$7 


;BELL 



;SOME ROM ROUTINES WE NEED 



.DEF 


ESC1=$FC2C 


ADDRESS OF ESC PROCESSOR 


.DEF 


CLRE0L=$FC9C 


CLEAR TO END OF LINE 


.DEF 


BELL=$FF3A 


HONK 


.DEF 


APPTVO=$FBFD 


"VIDOUT" 


.DEF 


APH0ME=$FC58 


"HOME ■■ 


.DEF 


APVTAB=$FC22 


"VTAB" 


.DEF 


XKBINP=$FD1B 


"KEYIN" 


.DEF 


APBELL=$FBDD 


SNEAK ENTRY TO "BELL" 



;SOME OTHER APPLE LOCATIONS WE NEED TO KNOW ABOUT 
.DEF IN=$200 ;INPUT LINE BUFFER 

.DEF BASL=$28 ;LINE BASE POINTER 

.DEF CH=$24 ;HORIZONTAL INDEX 

.DEF CV=$25 ;APPLE VERTICAL POSITION 



; SYSTEM GLOBALS WE NEED TO KNOW ABOUT 

.DEF VABORT=$BFOC ;ABORT EXIT VECTOR 

.DEF VEXIT=$BF06 ;NORMAL EXIT VECTOR 

.DEF LINIDX=$BF5A ; INPUT LINE INDEX 

.DEF EXECUT=$BF5D ;EXEC MODE FLAG 

.DEF L0WER=$BF5E ;LOWER CASE FLAG 



;SOME HARDWARE LOCATIONS IN THE APPLE 

.DEF XKBRES=$C010 ;RESET KEYFLAG 

.DEF XKBDAT=$COOO ;KEYBOARD DATA PORT 
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• i-^Hj J? 


XTEXTR=$C051 ;SET TEXT MODE 










T C\0 
. LvJL. 














r U J- IN J. o • 






B480 


4C 


E5B4 


CONOPI: 


JMP 


KEYINI 


0=OPEN FOR INPUT 


B483 


4C 


E0B4 


CONOPO: 


JMP 


TVINI 


3=0PEN FOR OUTPUT 


B486 


4C 


95B4 


CONIN: 


JMP 


GETKYO 


6=INPUT 


B489 


4C 


1CB5 


CONOUT: 


JMP 


TVOUT 


9=0UTPUT 


B48C 


4C 


E3B4 




JMP 


CONCLO 


12=CL0SE 


B48F 


4C 


79B5 




JMP 


CONCUR 


15=DIRECT CURSOR SET 


B492 


4C 


EFB4 




JMP 


CHKUSR 


18=CHECK FOR INTERRUPTS 








J O X LN V7 l_i IL 


CHARACTER KEYBOARD INPUT 


ROUTINE 


B495 


A4 


24 




LDY 


CH ;WE HAVE TO FAKE 


B497 


Bl 


28 




LDA@Y 


BASL 


THE ROM RDKEY ROUTINE 


B499 


48 






PHA 


;COS WE DONT WANT TO 


B49A 


29 


3F 




AND# 


$3F ;G0 THRU $38 AT THIS POINT 


B49C 


09 


40 




ORA# 


$40 




B49E 


91 


28 




staSy 


BASL 


SFT STRFFN FTA^HTWr; 


B4A0 


68 






PLA 






B4A1 


20 


IBFD 


iv ill X J_ O ■ 


JSR 


XKBINP 


GET A CHAR, UPDATING HASH COUNT 


B4A4 


29 


7F 




AND# 


$7F 


KEEP ONLY 7 BIT ASCII 


B4A6 


C9 


03 




CMP// 


KBEXIT 


EXIT? 


B4A8 


FO 


64 




BEQ 


FINEX 


BRANCH IF YES 


B4AA 


C9 


19 




CMP# 


KBABOR 


ABORT? 


B4AC 


FO 


6B 




BEQ 


SAVEX 


BRANCH IF YES 


B4AE 


C9 


OF 




CMP# 


DOBLSH 


WANTS A BACKSLASH? 


B4B0 


FO 


IB 




BEQ 


BSLASH 


YES, TURN IT INTO A "\" 


B4B2 


C9 


OB 




CMP# 


DOBRAK 


WANTS A SQUARE BRACKET? 


B4b4 


FO 


1 R 




BEQ 


LBRACK 


YES, TURN IT INTO A " [ " 


B4B6 


C9 


ID 




CMP# 


CASSHF 


WANTS TO SHIFT CASE? 


B4B8 


FO 


IB 




BEQ 


SWITCH 


YES ,G0 DO THAT 


B4BA 




OR 




CMP# 


BSPCOD 


BACKSPACE (THE LEFT ARROW)? 


B4BC 


DO 


02 




BNE 


KEYRET 


BRANCH IF NOT 


B4BE 


A9 


7F 




LDA# 


RUBCHR 


YES, CHANGE TO RUBOUT 


B4C0 


C9 


40 


KEYRET: 


CMP// 


$40 


ALPHA? 


B4C2 


90 


07 




BLT 


KEYSAM 


NO LEAVE IT 


B4C4 


AE 


5EBF 




LDX 


LOWER 


LOWER CASE ON? 


B4C 7 


FO 


0? 




BEQ 


KEYSAM 


NO LEAVE IT 


B4C 9 


09 


20 




ORA// 


$20 


YES, MAKE LOWER CASE 


B4CB 


18 




KEYS AM: 


CLC 




INDICATE SUCCESS 


B4CC 


60 






RTS 




,AND RETURN 


R Am 


AQ 


Sr 


PC T A C U • 


LDA// 


'\ 


,GET A BACKSLASH SINCE WE CAN'T 






rj r 




BNE 


KEYRET 


.GENERATE IT DIRECTLY. 


B4D1 


A9 


5B 


J_J X) I\.fVVj • 


LDA// 


'[ 


GET A LEFT BRACKET SINCE 


B4D3 


DO 


EB 




BNE 


KEYRET ;WE CAN'T GENERATE IT DIRECTLY. 


B4D5 


AD 


5EBF 


SWITCH: 


LDA 


LOWER 


.TOGGLE CASE SWITCH 


B4D8 


49 


FF 




EOR// 


$FF 




B4DA 


8D 


5EBF 




STA 


LOWER 


.SAVE IT BACK 


B4DD 


4C 


95B4 




JMP 


GETKYO 


;AND GO GET ANOTHER KEY 
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;ROUTINE TO INITIALISE THE CONSOLE FOR OUTPUT 



B4E0 2C 51C0 
B4E3 18 
B4E4 60 



TVINI: BIT 
CONCLO: CLC 
RTS 



XTEXTR 



SET TEXT MODE, ETC 
INDICATE SUCCESS 
AND RETURN 



B4E5 AD lOCO 
B4E8 A9 OOBD 
B4ED 18 
B4EE 60 



KEYINI : 



LDA 
MOV# 
CLC 
RTS 



XKBRES 
0, LOWER 



;DROP KEY STROBE IF ANY 
; UPPER CASE. 
;ALL OK 



;ROUTINE TO CHECK TO SEE IF USER TYPED AN ABORT CHAR 

;0R ASKED TO FREEZE OUTPUT. THIS ROUTINE MUST PRESERVE ALL 

;THE REGISTERS. IT MAY DESTROY THE PROCESSOR STATUS. 



B4EF 
B4F0 
B4F3 
B4F5 
B4f7 
B4F9 
B4FC 
B4FF 
B501 
B504 
B505 
B506 
B508 
B50A 
B50D 
B50E 



48 

AD OOCO 
10 OF 
C9 93 
DO OD 
AD lOCO 
AD OOCO 
10 FB 
AD lOCO 
68 
60 

C9 83 
DO 07 
AD lOCO 
68 

4C 06BF 



B511 C9 99 
B513 DO EF 
B515 AD lOCO 
B518 68 
B519 4C OCBF 



CHKUSR: PHA 
LDA 
BPL 
CMP# 
BNE 
LDA 

KYWAIT: LDA 
BPL 
LDA 
PLA 
RTS 
CMP# 
BNE 
LDA 
PLA 
JMP 



CHKURT; 



NOHNG; 



FINEX: 



NOHNG 1 



SAVEX: 



CMP// 

BNE 

LDA 

PLA 

JMP 



XKBDAT 

CHKURT 

HALTER+$80 

NOHNG 

XKBRES 

XKBDAT 

KYWAIT 

XKBRES 



KBEXIT+$80 

NOHNGl 

XKBRES 

VEXIT 

KBAB0R+$80 

CHKURT 

XKBRES 

VABORT 



;SAVE THE ACCUMULATOR CONTENTS 

;KEY STRUCK WHILE WE WERE GONE? 

; BRANCH IF NOT, RETURN 

;YES, WAS IT HALT REQUEST? 

; BRANCH IF NOT 

;YES, EAT THE CHAR 

;AND WAIT FOR ANY KEY 

EAT THE KEY 

RESTORE ACCUMULATOR CONTENTS 

AND RETURN 

ABORT? 

BRANCH IF NOT 
YES, EAT THE CHAR 
CLEAN UP STACK 
NO, EXIT NORMALLY 

; ABORT? 

; BRANCH IF NOT, RETURN TO CALLER 
;YES, EAT THE CHAR 
; CLEAN UP STACK 

;AND EXIT THROUGH USER ABORT VEC 



;TV OUTPUT SUBROUTINE. 

;CALL WITH THE ASCII CHAR TO OUTPUT IN THE ACCUMULATOR 



B51C 


20 


EFB4 


TVOUT: 


JSR 


CHKUSR ; 


CHECK FOR USER ABORT 


B51F 


29 


7F 




AND// 


$7F ; 


FOR SAFETY 


B521 


C9 


09 




CMP// 


TABCOD ; 


TAB? 


B523 


FO 


34 




BEQ 


DOTAB ; 


YES, FAKE IT 


B525 


C9 


OC 




CMP// 


FORMCD , 


FORM FEED? 


B527 


FO 


2B 




BEQ 


DOFORM 


YES, FAKE IT 


B529 


C9 


OD 




CMP// 


CRCOD 


CARRIAGE RETURN? 


B52B 


FO 


45 




BEQ 


DOCR 


YES, FAKE IT 


B52D 


C9 


7F 




CMP# 


RUBCHR 


RUBOUT CHARACTER? 


B52F 


FO 


35 




BEQ 


RUBOUT 


YES, FAKE IT 


B531 


C9 


OA 




CMP// 


LFCOD 


LINE FEED? 


B533 


FO 


18 




BEQ 


TVNOR 


YES, LET IT PASS 


B535 


C9 


07 




CMP// 


BELCOD 


,BELL? 


B537 


FO 


14 




BEQ 


TVNOR 


;YES, LET IT PASS 


B539 


C9 


08 




CMP// 


BSPCOD 


; BACKSPACE? 



PAGE 4 



B53B 


FO 


31 




BEQ 


BACKSP 


;YES, GO HANDLE 


B53D 


C9 


61 


DIRTV: 


CMP# 


%141 


;TEST FOR LOWER CASE ALPHA 


B53F 


90 


04 




BLT 


CHKCTL 


; BRANCH IF NOT 


B541 


49 


60 




E0R# 


$60 


;MAKE IT NON-BLINKING 


B543 


10 


OA 




BPL 


TOTV 


;BUT INVERSE VIDEO. 


B545 


C9 


20 


CHKCTL: 


CMP# 


%40 


;TEST FOR OTHER CONTROL CHARS 


B547 


BO 


04 




BCS 


TVNOR 


; BRANCH IF NOT A CONTROL CHAR 


B549 


09 


40 




0RA# 


$40 


; CONTROL CHAR. BLINK IT. 


B54B 


DO 


02 




BNE 


TOTV 


;AND PLACE IN INVERSE VIDEO. 


B54D 


49 


80 


TVNOR: 


E0R# 


$80 


; NORMAL CHARACTER 


B54F 


20 


FDFB 


TOTV: 


JSR 


APPTVO 


;CALL APPLE ROM TO OUTPUT 


B552 


18 




NOTV: 


CLC 




; INDICATE SUCCESS 


B553 


60 






RTS 




;AND RETURN 


B554 


20 


58FC 


DOFORM: 


JSR 


APHOME 


;D0 APPLE HOME-ERASE 


B557 


18 






CLC 




; INDICATE SUCCESS 


B558 


60 






RTS 




;AND RETURN 


B559 


A9 


20 


DOTAB: 


LDA# 




;GET A SPACE 


B j5B 


20 


jDB5 




JSR 


DIRTV 


;OUTPUT IT 


B55E 


A5 


24 




LDA 


CH 


;TEST HORIZ POSITION 


B560 


29 


07 




AND// 


$7 


;REACHED TAB STOP YET? 


B562 


DO 


F5 




BNE 


DOTAB 


; BRANCH IF NOT, KEEP SPACING 


B564 


18 






CLC 




;YES, INDICATE SUCCESS 


B565 


60 






RTS 




;AND RETURN 


B566 


20 


6EB5 


RUBOUT : 


JSR 


BACKSP 


;REMOVE IT WITH BACKSPACE 


B569 


A9 


20 




LDA# 




; SPACE 


B56B 


20 


4DB5 




JSR 


TVNOR 




B56E 


A t\ 

A 9 


08 


BACKSP : 


LDA# 


BSPCOD 


; BACKSPACE 


B570 


DO 


DB 




BNE 


TVNOR 


; OUTPUT AND RETURN 


B572 


20 


9CFC 


DOCR: 


JSR 


CLREOL 


; CLEAR TO END 


B575 


A9 


00 




LDA# 





; INDICATE HORIZ POSITION OF ZERO 


B577 


FO 


17 




BEQ 


HOOK 


;MOVE THERE THEN RETURN 








;TV CURSOR ADDRESSING ROUTINE. 










; CALLED 


WITH 


ROW IN ACCUMULATOR, 


COLUMN IN Y REGISTER. 


B579 


C9 


18 


CONCUR: 


CMP# 


24 


;IS IT WITHIN RANGE? 


B57B 


90 


06 




BCC 


VEROK 


; BRANCH IF YES 


B57D 


38 






SEC 




;N0, THEN WRAP AROUND 


B57E 


E9 


18 




SBC# 


24 




B580 


4C 


79B5 




JMP 


CONCUR 




B583 


85 


25 


VEROK: 


STA 


CV 


;SET VERTICAL POSITION 


B585 


98 






TYA 




;GET THE COLUMN NUMBER 


B586 


C9 


28 


HORR: 


CMP# 


40 


;IS IT ON SCREEN? 


B588 


90 


06 




BCC 


HOOK 


; YES 


B58A 


38 






SEC 




;N0, WRAP AROUND 


B58B 


E9 


28 




SBC# 


40 




B58D 


4C 


86B5 




JMP 


HORR 




B590 


85 


24 


HOOK: 


STA 


CH 


;SET HORIZONTAL POSITION 


B592 


20 


EFB4 




JSR 


CHKUSR 


; CHECK FOR USER ABORT 


B595 


20 


22FC 




JSR 


APVTAB 


;EXECUTE VTAB ROUTINE 


B598 


18 






CLC 




;INDICATE SUCCESS 


B599 


60 






RTS 




;AND RETURN 
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. DEF 


1. 1 U -Lj U -J \^ kj 










.LOG 


HERE , HERE- 


BIAS 








;THIS IS THE 


LINE BUFFERED 


CONSOLE HANDLER 


B5C0 


4C 


CFB5 


LINCON: JMP 


OPENLN 


;OPEN FOR INPUT 


B5C3 


4C 


83B4 


JMP 


CONOPO 


;OPEN FOR OUTPUT 


B5C6 


4C 


DEBS 


JMP 


GETCH 


;GET A BYTE 


B5C9 


4C 


89B4 


JMP 


CONOUT 


;SEND A BYTE 


B5CC 


4C 


DCB5 


JMP 


NULLOP 


; CLOSE 



;OPEN FOR INPUT, I.E. FLUSH THE LINE: 



B5CF 


20 


80B4 


OPENLN 


: JSR 


CONOPI ;OPEN NORMAL CONSOLE 


B5D2 


AD 


5DBF 




LDA 


EXECUT ; 


EXEC MODE? 


B5D5 


FO 


05 




BEQ 


NULLOP ; 


NO FLUSH IF EXEC MODE 


B5D7 


A9 


FF8D 




MOV# 


$FF,LINIDX ; 


FLUSH BUFFER 


B5DC 


18 




NULIOP 

LY \J i_J £J \J x. 


: CLC 




SAY OK 


B5DD 


60 






RTS 












;GET A 


CHARACTER: 




B5DE 


AD 


5ABF 


GETCH : 


LDA 


LINIDX 


PICK UP LINE BUFFER INDEX 


B5E 1 


C9 


FF 




CMP# 


$FF 


ANY CONTENT? 


B5E3 


FO 


2E 




BEQ 


NEWLIN 


NO, GO GET SOME 


BSE 5 


AA 






TAX 




YES, GET A BYTE 


B5E6 


BD 


0002 




LDAX 


IN 


FROM INPUT BUFFER 










INC 


LINIDX 


FOR NEXT CHAR 


B5EC 


C9 


Ik 




CMP# 


EOFCOD 


END OF FILE? 


B5EE 


FO 


OA 




BEQ 


ENDFIL 


TERMINATE EXEC MODE 


B5F0 


C9 


OD 




CMP# 


CRCOD 


WAS A RETURN? 


B5F2 


FO 


11 




BEQ 


ENDLN 


;YES, EMPTY THE LINE 


B5F4 


C9 


OA 




CMP// 


LFCOD 


;LINE FEED? 


B5F6 


FO 


E6 




BEQ 


GETCH 


;YES, IGNORE IT 


B5F8 


18 






CLC 




,SUCESS 


B5F9 


60 






RTS 




;BACK HOME 








;WHEN 


WE ENCOUTER AN END-OF-FILE 




B5FA 


A9 


FF 


ENDFIL 


: LDA# 


$FF 


;SET EXEC FLAG TO FALSE=$FF 


B5FC 


BD 


5DBF 




STA 


EXECUT 




B5FF 


8D 


5ABF 




STA 


LINIDX 


;SET INPUT LINE EMPTY 


B602 


4C 


DEB5 




JMP 


GETCH 


;AND GO GET FROM KEYBOARD 








;WHEN 


WE ENCOUTER A RETURN CHARACTER 


B605 


AD 


5DBF 


ENDLN: 


LDA 


EXECUT 


; CONTINUE IF EXEC MODE 


B608 


FO 


05 




BEQ 


NOEND 




B60A 


A9 


FF8D 




MOV# 


$FF, LINIDX 


;NOT EXEC SO FLAG IT EMPTY 


B60F 


A9 


OD 


NOEND: 


LDA# 


CRCOD 


;GIVE CALLER THE RETURN 


B611 


18 






CLC 






B612 


60 






RTS 







B613 20 1EB6 
B616 A9 008D 



NEWLIN: JSR GETLN ;GET A LINE 

MOV# 0, LINIDX ;RESET POINTER 
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B61B 


4C 


DEBS 




JMP 


GETCH 


BACK IN LINE 








; NORMAL 


ENTRY 


POINT TO GET A LINE IS HERE: 


B61E 


A9 


008D 


GETLN: 


MOV// 


O.LINIDX 


RESET POINTER 


B623 


20 


8EB6 


NXTCHR: 


JSR 


RDCHAR 


GO READ A CHAR 


B626 


C9 


15 




CMP// 


RETYPE 


IS IT A RETYPE CHAR? 


B628 


DO 


13 




BNE 


ADDINP 


NO, GO ON 








;WAS RETYPE SO 


WE GOTTA FIX SCREEN TO NORMAL CHAR 


B62A 


A4 


24 




LDY 


CH 




B62C 


Bl 


28 




LDA@Y 


BASL 


YES, PICK UP CHAR FROM SCREEN 


B62E 


C9 


80 




CMP// 


$80 


IS IT NORMAL? 


B630 


BO 


OB 




BGE 


ADDINP 


YFS FTNF 

1. lit iJ J 1. J- LH ill 


B632 


C9 


40 




CMP// 


$40 


WA*? TT TKrVFR<?F ^"7 DUFR rACiTT^ 

Wi^iJ -Li. JLINVHiIVOI-j V^LiWVVCjIa. \^£\tj J 


B634 


BO 


05 




BGE 


CTST2 


NO MUST BF A RLTNKFR fTTRT ") 


B636 


09 


60 




ORA// 


$60 


YES FORCE NORMAL LOWFR CASF 


B638 


40 


3DB6 




JMP 


ADDINP 


GO INSERT IT 


B63B 


29 


IF 


CTST2 : 


AND// 


$1F 


MAKE NORMAL CONTROL CHAR 








;GOT IT 


, EITHER FOR REAL OR FROM 


SCREEN 


B63D 


29 


7F 


ADDINP : 


AND// 


$7F 


WE WANT NORMAL ASCII 


Bo Jf 


AE 


5ABF 




LDX 


J-J X IN -L U /V 


PICK UP THE INDEX 


B642 


9D 


0002 




STAX 


IN 


STUFF CHARACTFR INTO RTTFFFR 


B645 


C9 


OD 




CMP// 


CRCOD 


WAS IT RETURN? 


B647 


DO 


04 




BNE 


NOTCR 


NO, PROCEED 


B649 


20 


83B6 




JSR 


GROUT 


YF TTmT FPHD THF RFTITRM 


B64C 


60 






RTS 




AND EXIT 


B64D 


20 


68B6 


NOTCR: 


JSR 


ECHO 


FCHO TNF rWARAPTFR 


B650 


C9 


7F 




CMP// 


RUBCHR 


WAS TT RArKSPACF? 


B652 


FO 


24 




ij j_j ^ 


D Jxo J: L> 


1 Xj O J \J\J i nr\ X 


B654 


C9 


18 




CMP// 


T TNDFT 


TJ A Q T T T T MIT RTT T TT T TT 9 


B656 


FO 


66 




BEQ 


CANCEL 


VTT G PAATPTTT TUT? T TMT? 




AE 


5ABF 




LDX 


LINIDX 


NEAR END OF BUFFER? 


B65B 


EO 


F8 




CPX// 


$F8 


248 TH CHAR? 


B65D 


90 


03 




BLT 


NOTCRl 


IN U , r 1 IN £j 


B65F 


20 


3AFF 




JSR 


BELL 


VTT Q TJATJTVT UTM 
I X!j D , WAKIN nllM 


B662 


EE 


5ABF 


il V_/ X \_* Iv JL • 


INC 


LINIDX 


"D "C A T\V f T> ATT? VT' 


B665 


4C 


23B6 




JMP 


NXTCHR 




B668 


48 




i-j n v/ - 


PHA 






B669 


C9 


18 




CMP// 


LINDEL 




B66B 


FO 


09 




BEQ 


ECHOl 


DONT ECHO CANCEL 


B66D 


C9 


7F 




CMP// 


RUBCHR 


WAS IT "RUBOUT"? 


B66F 


DO 


02 




BNE 


ECH02 


NO, NORMAL ECHO 


B671 


A9 


08 




LDA// 


BSPCOD 


YES, DO BACKSPACE 


B673 


20 


89B4 


ECH02: 


JSR 


CONOUT 


ECHO IT 


B676 


68 




ECHOl: 


PLA 






B677 


60 






RTS 






B678 


AD 


5ABF 


BCKSPC: 


LDA 


LINIDX 


GET THE INDEX 


B67B 


FO 


46 




BEQ 


GETLNZ 


LINE EMPTY? IF SO NEW LINE 


B67D 


CE 


5ABF 




DEC 


LINIDX 


DROP BACK ONE PLACE 


B680 


4C 


23B6 




JMP 


NXTCHR 


;BACK FOR MORE 


B683 


A9 


OD 


GROUT: 


LDA// 


CRCOD 


;GET A RETURN 


B685 


20 


89B4 




JSR 


CONOUT 


;PUT IT OUT & RETURN TO CALLER 
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B688 


A9 


OA 






LFCOD ; 


ALSO NEEDS A LINE FEED 


B68A 


20 


89B4 




JSR 


CONOUT ; 


SINCE CONSOLE HANDLER 


B68D 


60 






RTS 




DOES BOTH CORRECTLY 


B68E 


20 


86B4 


RDCHAR : 


JSR 


CONIN ;GET ONE 


B691 


C9 


IB 




CMP# 


ESCCOD ; 


ESCAPE? 


B693 


FO 


01 




BEQ 


ESC ; 


YES, GO PROCESS 


B695 


60 






RTS 


: 


NO, RETURN IT 


B696 


20 


86B4 


ESC : 


JSR 


CONIN ;GET ARGUMENT CHARACTER 


B699 


20 


9FB6 




JSR 


ESCDO ; 


PROCESS IT 


B69C 


4C 


8EB6 




JMP 


RDCHAR 


AND GET ANOTHER CHAR 


B69F 


C9 


4E 


ESCDO: 


CMP# 


'N 


\_* n ij \j IN. / i> 


B6A1 


BO 


15 




BGE 




1 Ej O \Jl^\J W/\ 1 


B6A3 


C9 


49 




CMP# 


- T 


rHPTTf ^ T 
l_«nij IS. N i- 


B6A5 


90 


11 




BLT 


ESCOLD 


YES SO OLD WAY 


B6A7 


C9 


4C 




CMP# 


'L 


IS IT L? 


B6A9 


FO 


OD 




BEQ 


Ij O O WijU 


VF <? nn TT TWTT HT T\ WAV 
lEiO, UU ±i Iflij ULiU WAX 


B6AB 


A8 






TAY 






B6AC 


B9 


80B6 




LDAY 


YT TUT — ' T 

ALi 1 O Li L 


TPAMCT A TIT (WW T?r^DM 


B6AF 


20 


B8B6 




JSR 


y cf PIT n 


Awn nn ni n t.tav 


B6B2 


20 


86B4 




JSR 


CONIN 


PICK UP NEXT TRY 


B6B5 


4C 


9FB6 




JMP 


ESCDO 


KEEP THIS MODE 


B6B8 


09 


80 


ESCOLD • 

x-i k-f KJ i.y • 


ORA# 


$80 


.HARDWARE WIERD WOZNIAK 


B6BA 


38 






SEC 




SOFTWARE WIERD WOZNIAK 


B6BB 


4C 


2CFC 




JMP 


ESCl 


,G0 THRU TO EITHER ROM 


B6BE 


A9 


5C 


fANCFT. • 


LDA# 


'\ 


;SHOW WE DROPPED THE LINE 


B6C0 


20 


89B4 




JSR 


CONOUT 




B6C3 


20 


83B6 


GETLNZ : 


JSR 


CROUT 


;GIVE RETURN, AND REENTER 


B6C6 


4C 


1EB6 




JMP 


GETLN 




B6C9 


44 




XLTBL: 


.BYTE 


'D 




B6CA 


42 






.BYTE 


'B 




B6CB 


41 






• BYTE 


'A 




B6CC 


FF 






.BYTE 


$FF 




B6CD 


43 






.BYTE 


'C 










;N0W HOOK THE 


HANDLER INTO THE DEVICE HANDLER TABLE: 










.LOC 


DEVTAB,DEVTAB-BIAS 


BFCO 


CO 


B5 




.WORD 


LINCON 


;BUFFERED CONSOLE = DEVICl 


BFC2 


80 


B4 




.WORD 


CONOPI 


; CONSOLE = DEVICE 
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.PAGE 
.END 







£\.U U i IN X 


Rfi n 


APRFT T 


FRFin 
r D u u 


APHOMF 


£ \j ^ \J 


APPTVn 


FRFD 


APVTAR 


FC ? 2 


lJ£\\j t\.tj -L 


D -J\J Hi 


RA <?T 


no? 8 

\j yj ^ \j 


D V_i IN. ij r v_* 




iJ 111 LjKjKJ u 


0007 


RFT T 


W A 


RT A c; 




RSLASH 


B4CD 


RSPCOD 


0008 


CANfFL 


B6BE 


V> ii O O 11 £^ 


OOID 


V_* 11 


0024 


v>iirvo X xj 


R545 


11 1\. U JX X 


D \J ^ 


\j n. i\.u o iv 


rAff 


n R FOT 

Jj I\ Ij W Xj 




CONCLO 

V> v/ li V-' 1-i V-' 


B4E 3 


rONCUR 


B579 


CONIN 

V> \J J- i.\ 


B486 


IN \_/ i J. 


D V 




r48 3 


V" V-* U X 


R489 

JJ "-t (J -7 




oonn 




R683 

D \J \j ^ 


\^ X O X i. 


X> <J J x> 


cv 


0025 


OF VTA'R 


RFPO 


DIRTV 


B53D 


uyJDLijn 


w \_/ r 




OOOR 


U W V> i\ 






JD -J J H 


OOT A 


R 5 S9 


F PHD 


X) U V *J 


ECHO 1 


R676 


FPHO 9 


R673 


111 I\ X/ X X Xj 


B5FA 


FNflT N 

Ej VI U i-iVi 


Lj \J \J -/ 


FOFPOD 


001 A 


F 

IZj O 'oi 


R696 


I-j O \_< J- 


VC2C 


F ^rroD 

Xj O O Vy Vy X/ 


OOlB 


Xi O V> X^ Vy 


B69F 


ESCOLD 


B6B8 


FXFCIJT 


BF5D 


FINEX 


B50E 


FORMCD 


OOOC 


GETCH 


B5DE 


GETKYO 

VJ XJ X IX X w 


B495 


GETLN 


B61E 


GFTT.N7 

VjrX-i X Xj IN cj 


B6C3 


HALTFR 

llf^Xj X Xj IX 


0013 


HERE 


B5C0 


HIAD 


B480 


HOOK 


B590 


HORR 


B586 


IN 


0200 


KBABOR 


0019 


KBEXIT 


0003 


KEYINI 


B4E5 


KEYINS 

XX XJ X X. jL^ k-/ 


B4A1 


KFYRET 


B4C0 


KF YS AM 


B4CB 


KYWAIT 

IX X W X\ -L X 


B4FC 


LBRACK 


B4D1 


LFCOD 


OOOA 


LINCON 


B5C0 


LINDEL 


0018 


LINIDX 


BF5A 


LOAD 


2480 


LOWER 


BF5E 


NEWLIN 


B613 


NOEND 


B60F 


NOHNG 


B506 


NOHNGl 


B511 


NOTCR 


B64D 


NOTCRl 


B662 


NOTV 


B552 


NULLOP 


B5DC 


NXTCHR 


B623 


OPENLN 


B5CF 


RDCHAR 


B68E 


RETYPE 


0015 


RUBCHR 


007F 


RUBOUT 


B566 


SAVEX 


B519 


SWITCH 


B4D5 


TABCOD 


0009 


TOTV 


B54F 


TVINI 


B4E0 


TVNOR 


B54D 


TVOUT 


B51C 


VABORT 


BFOC 


VEROK 


B583 


VEXIT 


BF06 


XKBDAT 


COOO 


XKBINP 


FDIB 


XKBRES 


COlO 


XLTBL 


B6C9 


XTEXTR 


C051 



NO ERRORS DETECTED 
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; APEX BYTE I/O TO DISK FILES HANDLER 

;NOTE: THIS HANDLER ASSUMES THAT THE BUFFERS START ON 

;A PAGE BOUNDARY AND ARE AN INTEGRAL NUMBER OF PAGES LONG, 

;DEFINE THE DEVICE NUMBER WE WANT THIS TO BE: 



.DEF 


DEVN0=3 


;BY CONVENTION IT SHOULD BE 3 


; DEFINE THE PLACE IN MEMORY WE 


WANT THIS HANDLER TO GO: 


. DEF 


HIAD=$AD00 


; REALLY HERE 


• DEF 


LOAD=$1DOO 


;BUT LOADS HERE 


•EXTERNAL*? WF 


CARE ABOUT SEE SYSTEM PAGE DEFINITION: 


.DEF 


KREAD=$BFE2 


;READ DISK BLOCKS 


.DEF 


KWRITE=$BFE5 


;WRITE DISK BLOCKS 


. DEF 


FSCAN=$BFDC 


; LOOKUP A FILE 


•LOCATIONS IN 


PROGRAM AREA THAT SPECIFY THE BUFFERS WE MUST USE 


. DEF 


INBUFE=$BF3C 


; INPUT BUFFER 


.DEF 


INBUFD=$BF3A 




.DEF 


0TBUFE=$BF38 


; OUTPUT BUFFER 


.DEF 


0TBUFD=$BF36 




;LOCATIONS IN 


THE SYSTEM AREA 


THAT CARRY READ/WRITE PARAMETERS 


. DEF 


UNIT=$BF68 


;UNIT TO DO XFER TO/FROM 


. DEF 


BLKN0=$BF69 


; BLOCK NUMBER TO START XFER 


.DEF 


NBLKS=$BF6B 


;NUMBER OF BLOCKS TO XFER 


.DEF 


FADDR=$BF6C 


;MEMORY ADDRESS TO XFER TO/FROM 


.DEF 


ENDBLK=$BF6E 


;LAST BLOCK OF FOUND FILE 


;LOCATIONS IN 


THE SYSTEM AREA 


THAT SPECIFY THE INPUT FILE 


.DEF 


INLBLK=$BF78 


; FIRST BLOCK 


.DEF 


INHBLK=$BF7A 


;LAST BLOCK 


.DEF 


INFLG=$BF7C 


; STATUS 


.DEF 


INDEV=$BF7E 


;UNIT IT IS ON 


;LOCATIONS IN 


THE SYSTEM AREA 


THAT SPECIFY THE OUTPUT FILE 


.DEF 


OTLBLK=$BF70 


;FIRST BLOCK 


.DEF 


OTHBLK=$BF72 


; MAXIMUM BLOCK WE CAN USE 


.DEF 


OTFLG=$BF74 


; STATUS 


.DEF 


OTDEV=$BF76 


;UNIT IT IS ON 



; WHERE THE DEVICE HANDLER TABLE IS SO WE CAN PATCH INTO IT; 
.DEF DEVTAB=$BFCO 



;A PLACE IF PAGE ZERO WE CAN USE FOR A POINTER 
.DEF PNTR1=0 



.LOC 



HIAD.LOAD 



ADOO 4C C9AD 

AD03 4C B9AE 

AD06 AC 12AD 

AD09 4C IFAE 



;ENTRY POINTS: 

BYTEIO: JMP OPENIN 

JMP OPENOT 

JMP GETBYT 

JMP PUTBYT 



;OPEN FOR INPUT 
;OPEN FOR OUTPUT 
; INPUT A BYTE 
; OUTPUT A BYTE 
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ADOC 


4C 


lAAF 




JMP 


CLOSE 


;CLOSE 


ADOF 


4C 


53AF 




JMP 


SCAN 


;OFEN AN INPUT FILE BY NAME 








;BASIC 


GET A 


BYTE ROUTINE: 




AD12 


AD 


7CBF 


GETBYT 


: LDA 


INFLG 


;D0 WE HAVE INPUT OPEN? 


AD15 


C9 


55 




CMP# 


$55 




AD17 


FO 


02 




BEQ 


GETBl 


;IF SO, CONTINUE 


AD19 


38 




GETBO: 


SEC 




;ELSE RETURN, FAILED 


ADIA 


60 






RTS 






ADIB 


AD 


83AF 


GETBl : 


LDA 


INBHI 


;FORM INBHI-INPNT 


ADIE 


38 


ED81 




SUB 


INPNT 


;T0 SEE IF POINTER 


AD22 


AD 


84 AF 




LDA 


INBHI+1 


;IS STILL INSIDE THE 


AD25 


ED 


82AF 




SBC 


INPNT+1 


; INPUT BUFFER 


AD28 


BO 


05 




BGE 


GETB2 


;0K IF INPNT<=INBHI 


AD2A 


20 


47AD 




JSR 


RMORE 


;ELSE READ MORE IN 


AD2D 


BO 


EA 




BCS 


GETBO 


;BARF IF TROUBLE 


AD2F 


AO 


00 


GETB2 : 


LDY# 





;GET THE BYTE 


AD31 


AD 


81AF 




DMOV 


INPNT, PNTRl 


;M0VE POINTER TO PAGE ZERO 


AD3B 


Bl 


00 




LDA@Y 


PNTRl 


;VIA INPNT 


AD3D 


EE 


81AF 




DINC 


INPNT 


;AND BUMP POINTER 


AD45 


18 






CLC 




;ALL IS WELL 


AD46 


60 






RTS 












;READ 


ANOTHER 


BUFFER FULL IN 




AD47 


AD 


7DAF 


RMORE : 


LDA 


LIBLK 


;FORM INSIZ : =LIBLK-FIBLK 


ADAA 


38 


ED7B 




SUB 


FIBLK 


:T0 SEE HOW MUCH OF THE FILE 

y ^ %J J— J J— 1 XX v/ vv X X XX N_/ X. jl xx x-^ x- -x. x-j xj 


AD4E 


8D 


7FAF 




STA 


INSIZ 


;IS LEFT 


AD51 


AD 


7EAF 




LDA 


LIBLK+1 




AD54 


ED 


7CAF 




SBC 


FIBLK+1 




AD57 


8D 


80AF 




STA 


INSIZ+1 




AD 5 A 


BO 


02 




BCS 


RMORl 


;IS FILE USED UP? 


AD5C 


38 




RMORO: 


SEC 




;BARF EXIT 


AD5D 


60 






RTS 






AD5E 


AD 


80AF 


RMORl : 


LDA 


INSIZ+1 


;WILL IT FIT IN BUFFER? 


AD61 


DO 


08 




BNE 


RM0R2 


;N0, >256 BLOCKS 


AD63 


AD 


7FAF 




LDA 


INSIZ 




AD66 


CD 


87AF 




CMP 


INBSIZ 




AD69 


90 


OF 




BLT 


RM0R3 


:YES IT FITS 

% -X- x^ % -X X. X j>- X \j 








;IF FILE IS > 


= BUFFER: 




AD6B 


AD 


86AF 


RM0R2 : 


MOV 


INBLO+1 ,FADDR+1 


; SETUP WHOLE BUFFER 


AD71 


AD 


87AF 




MOV 


INBSIZ ,N0BLK 


;FULL SIZE TANSFER 


AD77 


4C 


8DAD 




JMP 


RM0R4 


; ENTER COMMON CODE 








;IF FILE IS < 


BUFFER: 




AD 7 A 


AD 


84AF 


RM0R3 : 


LDA 


INBHI+1 


; COMPUTE WHERE TO PUT IT 


AD7D 


38 


ED7F 




SUB 


INSIZ 




AD81 


8D 


6DBF 




STA 


FADDR+1 




AD 84 


AD 


7FAF 




MOV 


INSIZ , NOBLK 


;SIZE OF FILE-1 


AD 8 A 


EE 


96AF 




INC 


NOBLK 


;+l=NO BLKS TO XFER 








; COMMON CODE 






AD8D 


A9 


008D 


RM0R4: 


M0V# 


O.FADDR 


;MUST BE ON A PAGE 


AD 92 


AD 


7BAF 




DMOV 


FIBLK, BLKNO 


; SETUP BLKNO 


AD9E 


AD 


6CBF 




DMOV 


FADDR, INPNT 


;RESET POINTERS 


ADAA 


AD 


96AF 




LDA 


NOBLK 


;ADJUST NEXT BLOCK 


ADAD 


18 


6D7B 




DADM 


FIBLK 




ADB9 


AD 


96AF 




MOV 


NOBLK, NBLKS 


;G0 GET IT 
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ADBF 


AD 


88AF 




MOV 


INUNIT.UNIT 






ADC 5 


20 


E2BF 




JSR 


KREAD 






ADC8 


60 






RTS 




. 


RETURN WITH CORRECT CARRY 








;0PEN INPUT FILE 


. 






ADC 9 


AD 


7CBF 


OPENIN: 


LDA 


INFLG 


3 


DO WE HAVE ONE? 


ADCC 


DO 


02 




BNE 


OPINl 


J 


NON ZERO IF OK 


ADCE 


38 






SEC 




! 


ERROR, NO FILE TO OPEN 


ADCF 


60 






RTS 








ADDO 


AD 


78BF 


OPINl : 


DMOV 


INLBLK.FIBLK 


3 


SETUP FIBLK 


ADDC 


AD 


7ABF 




DMOV 


INHBLK,LIBLK 


3 


AND LIBLK 


ADE8 


AD 


3CBF 




DMOV 


INBUFE,INBHI 


;LOCAL COPY 


ADF4 


AD 


3ABF 




DMOV 


INBUFD,INBLO 






AEOO 


AD 


84AF 




LDA 


INBHI+1 


: 


COMPUTE INBSIZ 


AE03 


38 


ED86 




SUB 


INBLO+1 






AE07 


18 


6901 




INCA 








AEOA 


8D 


87AF 




STA 


INBSIZ 






AEOD 


AD 


7EBF 




MOV 


INDEV.INUNIT 


: 


MAKE LOCAL COPY OF UNIT 


AE13 


A9 


FF8D 


0PIN2: 


MOV// 


$FF,INPNT+1 


3 


FLAG IT EMPTY 


AE18 


A9 


558D 




MOV# 


$55 , INFLG 


3 


FLAG IT OPEN 


AEID 


18 






CLC 








AEIE 


60 






RTS 














; OUTPUT 


A BYTE: 








AEIF 


8D 


95AF 


PUTBYT : 


STA 


DATA 


: 


SAVE THE BYTE 


AE22 


AD 


74BF 




LDA 


OTFLG 


: 


IS IT OPEN? 


AE25 


C9 


55 




CMP# 


$55 






AE27 


FO 


02 




BEQ 


PUTBl 




WILL BE $55 IF IT IS 


AE29 


38 




PUTBO : 


SEC 








AE2A 


60 






RTS 








AE2B 


AD 


91AF 


PUTBl : 


LDA 


OTBHI 




FORM OTBHI-OTPNT 


AE2E 


38 


ED8E 




SUB 


OTPNT 




TO SEE IF THE POINTER IS 


AE32 


AD 


92AF 




LDA 


OTBHI+1 




STILL WITHIN THE 


AE35 


ED 


8FAF 




SBC 


OTPNT+1 




OUTPUT BUFFER 


AE38 


BO 


05 




BGE 


PUTB2 




OK IF OTPNT<=OTBHI 


AE3A 


20 


5AAE 




JSR 


WMORE 




ELSE WRITE BUF OUT 


AE3D 


BO 


EA 




BCS 


PUTBO 




BARF IF TROUBLE 


AE3F 


AO 


00 


PUTB2: 


LDY# 







STORE THE BYTE 


AE41 


AD 


8EAF 




DMOV 


OTPNT, PNTRl 




MOVE POINTER TO PAGE ZERO 


AE4B 


AD 


95AF 




LDA 


DATA 






AE4E 


91 


00 




STA^Y 


PNTRl 




,VIA OTPNT 


AE50 


EE 


8EAF 




DINC 


OTPNT 


;AND BUMP POINTER 


AE58 


18 






CLC 






;ALL IS WELL 


AE59 


60 






RTS 














;WRITE 


OUT A BUFFER 






AE5A 


AD 


8FAF 


WMORE : 


LDA 


OTPNT+1 




; COMPUTE OTSIZ 


AE5D 


38 


ED94 




SUB 


OTBLO+1 




;T0 SEE HOW MANY BLOCKS 


AE61 


8D 


8DAF 




STA 


OTSIZ 




;WE NEED TO WRITE OUT 


AE64 


AD 


8EAF 




LDA 


OTPNT 






AE67 


FO 


03 




BEQ 


WMORl 






AE69 


EE 


8DAF 




INC 


OTSIZ 


;ADJUSr FOR PARTIAL BLOCK 


AE6C 


AD 


89AF 


WMORl: 


DMOV 


FOBLK.BLKNO 




; SETUP BLKNO 



PAGE 



AE78 


AD 


94AF 




LDA 


OTBLO+1 




AE7B 


8D 


6DBF 




STA 


FADDR+1 




AE7E 


8D 


8FAF 




STA 


OTPNT+1 


;AND POINTER 


AE81 


A9 


00 




LDA# 







AE83 


8D 


6CBF 




STA 


FADDR 


;MUST BE ON A PAGE 


AE86 


8D 


8EAF 




STA 


OTPNT 




AE89 


AD 


8DAF 




LDA 


OTSIZ 


; UPDATE TO NEXT OUT BLOCK 


AE8C 


18 


6D89 




DADM 


FOBLK 




AE98 


AD 


8BAF 




LDA 


LOBLK 


;DOES THIS FIT IN THE EMPTY 


AE9B 


38 


ED89 




SUB 


FOBLK 




AE9F 


AD 


8CAF 




LDA 


LOBLK+1 




AEA2 


ED 


8AAF 




SBC 


FOBLK+1 




AEA5 


BO 


02 




BGE 


WM0R3 


;IF FOBLK <= LOBLK 


ATT A 7 


J o 






C TT r* 




;AiiliMPi 10 wRlIE rOO FAR 


AEA8 


60 






RTS 




;DOES NOT FIT 


A TT" A Q 


A "n 
AJJ 


oUAr 


wMUK J : 


MOV 


OTSIZ, NBLKS 


;FITS, SO WRITE IT 


AEAF 


AD 


76BF 




MOV 


OTDEV.UNIT 




AEB5 


20 


E5BF 




JSR 


KWRITE 




AEB8 


60 






RTS 




; RETURN WITH STATUS 








;0PEN 


OUTPUT FILE: 




AEB9 


AD 


74BF 


OPENOT 


: LDA 


OTFLG 


;D0 WE HAVE ONE? 


AEBC 


C9 


01 




CMP# 


$1 


;IF IT WAS NEW 


AEBE 


FO 


06 




BEQ 


OPOTl 


;THEN FINE 


AECO 


C9 


55 




CMP# 


$55 


;IF IT WAS NOT CLOSED 


AEC2 


FO 


02 




BEQ 


OPOTl 


;THEN FINE 


AEC4 


38 






SEC 




;ELSE BAD 


AEC5 


60 






RTS 






AEC6 


AD 


70BF 


OPOTl: 


DMOV 


OTLBLK, FOBLK 


; SETUP FOBLK 


AED2 


AD 


72BF 




LDA 


OTHBLK 


;AND LOBLK 


AED5 


18 


6901 




INCA 






AED8 


8D 


8BAF 




STA 


LOBLK 




AEDB 


AD 


73BF 




LDA 


OTHBLK+1 




AEDE 


69 


00 




ADC# 







AEEO 


8D 


8CAF 




STA 


LOBLK+1 




AEE3 


AD 


38BF 




DMOV 


OTBUFE ,OTBHI 


;LOCAL COPY 


AEEF 


AD 


36BF 




DMOV 


OTBUFD.OTBLO 


;IN CASE USER PROGRAM BOMBS 


AEFB 


AD 


92AF 




LDA 


OTBHI+1 


;COMPUTE OTBSIZ 


AEFE 


38 


ED94 




SUB 


OTBLO+1 




AF02 


18 


6901 




INCA 






AF05 


8D 


90AF 




STA 


OTBSIZ 




A IT n Q 


A "n 






LDA 


OTBLO+1 


;FLAG BUFFER EMPTY 


AFOB 


8D 


8FAF 




STA 


OTPNT+1 




A "p nt? 
Ar Uti 


A 

Ay 


Wou 




MOV# 


0, OTPNT 




AF13 


A9 


558D 




MOV# 


$55, OTFLG 


;FLAG IT OPEN 


AF18 


18 






CLC 






AF19 


60 






RTS 












;CLOSE 


THE OUT 


FILE 




AFIA 


AD 


74BF 


CLOSE: 


LDA 


OTFLG 


;WAS IT OPEN? 


AFID 


C9 


55 




CMP# 


$55 




AFIF 


FO 


02 




BEQ 


CLOSl 


;WAS OPEN, SO GO CLOSE IT 


AF21 


18 






CLC 




;IT WAS ALREADY CLOSED 


AF22 


60 






RTS 




;S0 WE JUST IGNORE 
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AF23 


A9 


lA 


CLOSl : 


LDA// 


$1A 






; STASH AN EOF, IN CASE 


AF25 


20 


IFAE 




JSR 


PUTBYT 








AF28 


AD 


8EAF 




LDA 


OTPNT 






•DO WE HAVE TO WRITE ANY' 

y \y VV J-J 11 Xi V U X \J VY IV J- X Xj XX Li X • 


AF2B 


DO 


08 




BNE 


CL0S3 






•HA'? CONTENT 


AF2D 


AD 


8FAF 




LDA 


OTPNT+1 








AF30 


CD 


94AF 




CMP 


OTBLO+1 








AF33 


FO 


06 




BEQ 


CL0S2 






•NO CONTENT ALL DONE 

J 11 V-* \> \J il X l_i 11 X ^ iTlXJ XJ ±J \J 11 ij 


AF35 


20 


5AAE 


CL0S3 : 


JSR 


WMORE 

VV J. 1 vy iv Lj 






•ELSE WRITE OUT FINAL BLOCKS 

y J_J XJ rV IV X. X U w KJ i- X JL 11 ix J_t U JLJ \J V> 1\> 


AF38 


90 


01 






PT n9 9 








AF3A 


60 
















AF3B 


AD 


89AF 


CL0S2 • 


LDA 


FOBLK 






•UPDATE LAST BLOCK 


AF3E 


38 


E901 




SUB# 


1 








AF41 




79 RF 




«5T A 


OTHBLK 






• APFY Ta7TT T T^NOU HOU 


AF44 


AD 


8AAF 




LDA 


FOBLK+1 






;T0 UPDATE THE DIRECTORY 


AF47 


E9 


00 




SBC# 











AF4Q 


Rn 

o u 


73RF 




<;t A 


OTHBLK+1 






AF4r 


A9 


FF 




LDA# 


$FF 






;MARK IT CLOSED 




8n 


74TIF 




STA 


OTFLG 








AF SI 


1 8 






CLC 










AF S2 


60 






RTS 








; RETURN WITH CARRY FLAG CLEAR 








;THIS 


ROUTINE 


USES THE 


SYSTEM 


RESIDENT "FSCAN" TO OPEN 








;AN INPUT FILE 


BY NAME. 


THE NAME IS PASSED BY ADDRESS IN 








;THE AC AND Y 


REGISTERS 


. THE 


FILE WILL BE LOOKED FOR 








;0N THE UNIT IN THE SYSTEM 


AREA PARAMETER "UNIT". 








;NOTE 


THAT THE 


FILE OPENED 


IN 


THIS WAY LEAVES THE INPUT 








;FILE 


BLOCK IN 


THE SYSTEM 


AREA UNAFFECTED. THUS IF ANOTHER 








;CALL 


IS MADE 


TO "OPENIN" 


IT 


WILL RE-OPEN THE ORIGINAL FILE. 








; REFER TO THE 


COMMENTS 


ON 


FSCAN FOR FURTHER DETAILS. 


AF53 


20 


DCBF 


SCAN: 


JSR 


FSCAN 








AF56 


BO 


21 




BCS 


BADSCN 






;FILE NOT FOUND 


AF58 


AD 


69BF 




DMOV 


BLKNO, FIBLK 


;MOVE STARTING BLOCK 


AF64 


AD 


6EBF 




DMOV 


ENDBLK, 


LIBLK 


;AND ENDING BLOCK 


AF70 


AD 


68BF 




MOV 


UNIT, INUNIT 


;ALSO SAVE NEW UNIT 


AF7fi 


4r 


1 3AF 




JMP 


0PIN2 






;G0 JOIN EXISTING CODE 


A F 7 Q 


J o 




BADSCN: SEC 










rir / t\ 








RTS 
















;THE RAM LOGS 


THAT THESE ROUTINES NEED 


rir / D 


on 


no 


FIBLK 


• WORD 









;NEXT BLOCK OF INPUT FILE 


AF7D 


00 


00 


LIBLK 


.WORD 









;LAST BLOCK OF THE INPUT FILE 


AF7F 


00 


00 


INSIZ 


.WORD 









;REMAINING INPUT FILE SIZE-1 


r\r O J. 


no 


no 


INPNT 


.WORD 









; INPUT BUFFER POINTER 


rir O J 


nn 


nn 


INBHI 


.WORD 









; LOCAL COPY START OF BUF 


AFR S 


00 


nn 


INBLO 


.WORD 









; LOCAL COPY, END OF BUF 


AFR7 
i\r o / 


no 




INBSIZ: .BYTE 









;INPUT BUFFER SIZE IN PAGES 


Ar o 


nn 




INUNIT: .BYTE 









;LOCAL COPY OF INPUT UNIT 


AF89 


00 


00 


FOBLK 


.WORD 









;NEXT BLOCK OF OUT FILE 


AF8B 


00 


00 


LOBLK 


.WORD 









;MAX+1 BLOCK OF OUT FILE 


AF8D 


00 




OTSIZ 


.BYTE 









;SIZE FOR THIS WRITE 


AF8E 


00 


00 


OTPNT 


.WORD 









; OUTPUT BUFFER POINTER 


AF90 


00 




OTBSIZ: .BYTE 









; OUTPUT BUFFER SIZE IN PAGES 


AF91 


00 


00 


OTBHI 


: .WORD 









; LOCAL COPY, START OF BUF 
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AF93 00 00 



OTBLO; 



.WORD 



;LOCAL COPY, END OF BUF 



AF95 00 
AF96 00 



DATA: 
NOBLK; 



.BYTE 
.BYTE 








; TEMPORARY TO SAVE DATA BYTE 
;TEMP=NO OF BLOCKS IN XFER 



;PS: THE LOCAL COPY STUFF IS TO SAVE US FROM LOADERS AND LINKED 
;FILE READERS WHICH COULD CHANGE THINGS IN THE SYSTEM PAGE 
;0N THE FLY. 



BFC6 00 AD 



;NOW HOOK THE HANDLER INTO THE DEVICE HANDLER TABLE: 
•LOG DEVTAB+DEVNO+DEVNO 
.WORD BYTEIO 
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*** ASM65 *** (V3.0-DS) OCT-79 



.PAGE 
.END 





BFC8 


BADSCN 


AF79 


BLKNO 

xJ J-J AV lr% \J 


BF69 


BYTEIO 


ADOO 


CLOSl 


AF23 


CL0S2 


AF3B 


CL0S3 

\^ JLJ 


AF35 


CLOSE 

U V/ lJ i_l 


AF lA 


DATA 


AF9 S 


DEVNO 


0003 


DF VTAR 


RFCO 


Hi AN O 1j JV 


RF fiF 


FADDR 


BF6C 


FIBLK 


AF7B 


FOBLK 


AF89 


FSCAN 


BFDC 


GETBO 




VjJ-j X O X 


Am R 
t\\J X. D 


GFTR? 






Ani 9 


HT An 


Anno 


INBHI 


AF 83 


TNRT n 

X i\ JJ Xj w 




X IN ij D X Zj 


AFft 7 


X IN x> u r L/ 


■RP T A 


X IN D U r IL 


or 


X IN U Ej V 


RT? 717 
DP / Xj 


J. IN r JLi o 


■RT7 7r 
or / 


X i\ il D Xi J\. 


RTT 7 A 


J. IN Li 15 Li Ix 


R17 7 
Dx / O 


TNPNT 


AF 81 


X IN D X 


AT? 717 


T "NTTTMT T 
L IN U In L i 


A F 5^ P 

Ar oo 


VTIV AD 




Jx W IV X 1 Ej 




T T P T V 
Lj 1 i5 LiV 


A TT 71^ 


LOAD 


IDOO 


LOBLK 


AF8B 


NBLKS 


BF6B 


NOBLK 


AF96 


OPENIN 


ADC 9 


OPENOT 


AEB9 


OPINl 


ADDO 


0PIN2 


AE13 


OPOTl 


AEC6 


OTBHI 


AF91 


OTBLO 


AF93 


OTBSIZ 


AF90 


OTBUFD 


BF36 


OTBUFE 


BF38 


OTDEV 


BF76 


OTFLG 


BF74 


OTHBLK 


BF72 


OTLBLK 


BF70 


OTPNT 


AF8E 


OTSIZ 


AF8D 


PNTRl 


0000 


PUTBO 


AE2 9 


PUTBl 


AE2B 


PUTB2 


AE3F 


PUTBYT 


AEIF 


RMORO 


AD5C 


RMORl 


AD5E 


RM0R2 


AD6B 


RM0R3 


AD 7 A 


RM0R4 


AD8D 


RMORE 


AD47 


SCAN 


AF53 


UNIT 


BF68 


WMORl 


AE6C 


WM0R3 


AEA9 


WMORE 


AE5A 



NO ERRORS DETECTED 



